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SYMBOLIC CODING AND ASSEMBLY FOR THE IBM TYPE 650 



R. E. Ruthrauff 
Douglas Aircraft Company 



The following describes a method of coding for the IBM Model 650 Computer which 
employs symbolic rather than actual locations and addresses. The ideas presented 
here are not original and represent merely a modification of symbolic coding 
techniques developed and used by Douglas Aircraft Company, Inc., Santa Monica 
Division, for the IBM Model 701. A logic is developed for coding and a program 
is described which performs the assembly into actual machine language, 

CODING IN ACTUAL MACHINE LANGUAGE 

The product of any coding technique for a computer must be the series of machine 
language instructions which, when executed, perform the desired series of compu- 
tations. The means of attaining this "actual" as it is called, are as diverse 
as the functions of the companies currently using the 650. However, the problems 
of these organizations may be grouped into two major categories: 

1) Those organizations whose principal computing requirements are 
the solution of a few extremely large problems which are modified 
infrequently. The majority in this category are accounting type 
problems. 

2) Those companies engaged in the solution of many technical problems 
subject to a variety of changes. 

Coding in actual machine language presents many serious objections for organiza- 
tions of the second type above. Among them are the following: 

1) Changes are. difficult to make. 

2) Portions of the coding cannot be easily relocated in memory, 

3) It is, actual coding and as such represents a compromise between 
feasible machine design and programming requirements. Since, of 
course, machine design gets more than programming does from the 
compromise, actual coding is not an efficient means of programming. 

Symbolic coding is an attempt to remedy these serious objections to actual coding 
and has been used successfully by many users of the EDPM 700 series machines. 

SYMBOLIC CODING 

In coding any problem for a stored program computer, the operations to be per- 
formed consist of a sequence of subordinate computations, tests, data read-in, 
and data read-out. These pieces or blocks are called regions and constitute 
logical stages in the execution of a program. They may be the evaluation of 
some specific arithmetic function, such as sin x. In addition, they may also 
constitute the storage required by other regions. 



For the purpose of coding these regions, a group of numbers commencing at 10 and 
terminating at 99 is set aside. Numbers are then selected from this group by the 
programmer and assigned to these regions: all subsequent references, of course, 
must consistently employ these numbers. Since data storage regions are required 
by all programs, these have been assigned the special region numbers 1, 2, 5, and 
6 and will be discussed later. 

Each actual instruction is completely determined by its actual location, actual 
operation, and actual data and instruction address. Symbolically, it is 
determined by location region, symbolic operation code, data address region, 
and instruction address region. Obviously, some sequence must be specified 
within each of these regions and, therefore, location sequence, data address 
sequence and instruction address sequence are introduced. The symbolic operation 
code is a three position alphabetic abbreviation. 

All machine instructions may be grouped into one of the following categories: 

1) Instructions which refer to data storage locations. 

2) Instructions which refer to the location of other instructions. 

3) Instructions whose addresses are a special function of the 
operation performed. 

4.) Instructional constants: i.e. numerical constants which are entered 
as part of the program deck. 

Special region numbers are assigned to these categories as follows: 

- The use of as either a data address region or instruction address 
region indicates that the corresponding sequence is the actual 
machine address (type 3 and 4 mentioned before). For example, the 
instruction SR (shift right) 4 has a data address region of and a 
data address sequence of 4. Instructional constants are always 
entered with data address region and instruction address region equal 
to zero. Since -44. of a possible 100 operation codes are provided on 
the 650, the operation bits of an instructional constant are handled 
in a different manner* For these constants the symbolic code abbrevia- 
tion is numeric rather than alphabetic and is indicated by the presence 
of a zero in the first position of the field. This also serves to call 
attention to the fact that this symbolic instruction is such a constant. 
For example, pi at nine decimals is written as 

Symbolic Operation - 031 
Data Address Sequence - 4159 
Instruction Address Sequence - 2654 

with both address regions 0. 



1 - Region 1 refers to the location of all temporary storage which may be 

used by the coder, but is primarily reserved for the execution of sub- 
routines (type 1 mentioned previously). The sequence within this 
region designates the word of the region to be used. The first word 
in this region has address sequence 0. For example, the instruction 
RAL (Reset Add Lower) with a data address region of 1 and a data 
address sequence of 5 causes the contents of the sixth word in region 
1 to be placed into the lower accumulator* 

2 - This region is reserved for the storage of all data of a permanent 

nature required by the coder in the execution of a given problem 
(type 1 mentioned previously). The sequence designation within this 
region is identical to that of region 1. However, the first two words 
of region 2 are reserved for the storage of two important constants. 
Region 2 sequence contains a 1 in the instruction address units 
position and region 2 sequence 1 contains a 1 in the data address units 
position. 

3 - The use of 3 as either a data address region or instruction address 

region indicates that this instruction refers to the location of 
another instruction somewhere within the same region (type 2 above). 
The sequence used with this address region designates the specific 
instruction in that region. Example: 

The instruction LDS (Load distributor) with a data address 
region of 3 and data address sequence of 17 causes the 
instruction in this same region having a location sequence 
number of 17 to be placed in the distributor. 

This data address region could be the actual region number rather than 
three. Three is used merely to facilitate a change in the region 
number without changing all references to other instructions within 
the same region. 

5 - The use of 5 refers to the read locations peculiar to the 650, and is 

used for purposes of input. The sequencing is identical with that of 
region 1. 

6 - This address region refers to the punch locations peculiar to the 650, 

used by output routines. The sequencing is identical with that of 
region 1. 

In addition to these special regions a data address region or instruction 
address region of 10 or larger is permissible if a reference is made to 
an instruction in another region. However, by its very nature, a region 
is independent and references beyond linkage instructions to these 
regions are kept to a minimum. 

The following example illustrates the use of symbolic coding in a simple 
parameter study. 



The problem consists of the following* 

(Figure l) Tables of the £ parameters are given with the constants ' , ^ , 
and _>^- , which are to be used with the E-'s. All possible combinations of these 
values are to be formed in the equations given and the corresponding results 
with the specific choice of E^ which gave those results are to be recorded on 
the output card. The flow chart (Figure 2) gives the step-by-step procedure 
followed in the execution of the program. 

T he problem begins by reading all necessary input data which consists of the 
tables of ^ values, ^ , G- , and _ju- . Since these tables may not be of the 
same length, three additional pieces of information are furnished in the form 
of ^u^Awtj and^W.. As the notation implies these are the last entries 
in the ^, £ h , ^.tables. 

Once the input has been accomplished some preliminary computations are per- 
formed and the locations of the first entries for each of these three tables 
are reset. Then the first set of parameters is selected and the quantities 
<S1 , <S" xt and S** are computed using the fixed point square root subroutine. 
The result of this computation along with the ^"s used is then punched in an 
output card. A test is performed to determine whether the Rvalue just used 
was equal to the^^yalue. If i-t was no ^* t ^ ie lotion of tne Rvalue is 
advanced by one and control is returned to that portion of the program which 
selects the next set of f values. However, if the two quantities are equal, 
the ^Lvalue is then reset to the location of the first 4L and a test is per- 
formed on ^ to determine if it may be equal to-Gl^ This procedure is 
repeated on ^ thus generating all combinations ofthe £. values. When all 
such computations have been performed, the machine is instructed either to 
stop or to return to read more input cards. The number appearing in the 
lower right-hand corner of certain blocks in this diagram is the region number 
which was arbitrarily assigned from the numbers 10 through 99. The flow chart 
constitutes the master control region normally called region 10. Portions of 
the flow diagram having no region number indicated are part of this region. 

Prior to the coding, a layout of region 2, the permanent storage region, is 
made and sequences are assigned to the quantities needed. The regions may 
then be coded independently, the only information required being the location 
of the quantities which are needed in region 2. These regions are then coded 
by the programmer using the sheet shown in Figure 3. These coding sheets 
are then submitted to keypunch where they are punched one instruction per card 
with descriptive notes. Certain of the regions needed in the problem are 
standard subroutines which are available in a permanent file. These are re- 
produced with the appropriate region number for this problem. The entire 
file of cards is now sorted to location region major, location sequence minor, 
and listed on the 407 (Figure A). At this point the final checking is per- 
formed prior to the assembly. 
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Figure 3 
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Figure 4 



ASSEMBLY 

The assembly program performs a translation from symbolic instructions into 
actual machine instructions. The resulting program deck is then punched by 
the computer seven instructions per card with a three digit card sequence 
number and appropriate identification. 

To perform an assembly, the assembly program cards are placed in the card hopper. 
Immediately following this deck the symbolic instruction cards are entered. 
These cards are keypunched one symbolic instruction per card and must be in sort 
on location region major, location sequence minor. The computer performs a 
sequence check during the read-in and stops if the cards are out of sort. In 
addition, the symbolic code abbreviation is converted into the actual numeric 
code on the read-in using the table look-up feature of the 650. As the cards 
are read, each symbolic instruction is stored in two words of memory. These 
words are constructed so as to facilitate table look-up in the case of a data 
address, or an instruction address which refers to the location of another in- 
struction. The last symbolic card is followed by a control card which contains 
the following information. 

1) A 7 digit identification number. 

2) The card number which is to be punched on the first card of the 
resulting program deck. 

3) The actual location of the first symbolic instruction. 
4-) The origin of region 1. 

5) The origin of region 2. 

6) The origin of region 5. 

7) The origin of region 6. 

Items U> 5, 6, and 7 may be assigned by the programmer or the assembly program. 

The actual instructions which comprise the coding may begin in any location but 
usually commence at actual location 0000. The origin of region 2 will then be 
computed by the machine as the location of the first word beyond the last in- 
struction in the coding. The origin of region 1 is chosen such that the highest 
region 1 sequence number will be the actual location 1999. 

After the control card is read, the origins of the regions are assigned or com- 
puted as is necessary and the actual assembly begins. An error may be sensed 
at this time if a reference is made to an instruction which cannot be found. 
If no errors are detected, the machine begins punching the finished program deck 
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after the completion of the entire assembly. A maximum of 720 instructions may be 
assembled at one time. 

ASSEMBLY TIME 

The time required to perform an assembly having 720 instructions is given below: 

Read-in of Assembly Program .4- minutes 

Read-in of Symbolics 3.6 minutes 

Assembly 6.0 minutes 

Punch-out of Program Deck 1.3 minutes 

TOTAL 11.3 minutes 

Subsequent assemblies, of course, do not require that the assembly program be 
re-entered . 

SPECIAL DEVICES 

One-half time emitter for the read feed. 
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RELATIVE PROGRAMMING FOR THE IBM TYPE 650 

John T. Horner 
General Motors Corporation 



A method of relative programming has been devised for the 
IBM Type 650 Computer which facilitates programming of 
engineering problems. All instructions and data are assigned 
relative locations and commands are given by mnemonic alphabetical 
character sets. A 650 Relative Program is used to read relative 
instructions and punch a card set with actual instructions which 
is the final problem program, ready for running and checking. Sub- 
routines may also be referred to by the mnemonic commands and have 
actual locations assigned by the Relative Program. Present 
relative sub-routines include floating point arithmetic, matrix 
floating point arithmetic, formation of elementary functions in 
fixed point or floating point form, interpolate, differentiate 
and quadrature sub-routines, and indexing and plotting sub-routines, 
Additional sub-routines may be added as required. 

General Features of System 

The Allison Relative Programming System has been designed 
to permit rapid and efficient preparation of engineering and 
scientific problems for the Type 650 Computer. The specific 
requirements for a system to accomplish these purposes are that 
the system must be easy to learn, it must have wide application 
and have sufficient flexibility to handle unusual problems and it 
must use machine time economically. We consider that the last 
two requirements are adequately satisfied. The system is not, 
however, readily learned by personnel untrained in computer 
techniques but is easily mastered by experienced personnel. 

The Relative Program for a problem is prepared by using 
650 basic instructions in relative form. This Is not a new 
technique, It has been used for programming of IBM 701, IEM 702, 
Remington Rand Univac and other large and medium size computers. 
An instruction, itself, has the following form: 

Op Data Address Transfer Address 
XX XXXX XXXX 

but, to be completely defined, it must be assigned a location. 
Since the location, data address and transfer address are 
identical in form, referring ordinarily to storage locations 
within the computer, these may be treated uniformly in assigning 
relative locations. A relative location is defined by the 
following form; 

Aa.a XXXX 
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where Aa.a called the deck number, consists of an alphabetical 
character (or number) A followed by two numerical digits (or 
alphabetical characters and XXXX is the relative location within 
the deck. The starting relative deck location is 0000. 

Figure 1 shows the Allison Relative Program Sheet for 
650 Computer. Note that the relative instruction, consisting of 
an instruction location, basic operation, data address and 
transfer address has the same form as a basic computer instruction. 
As an aid to memory, the operation codes which are considered to 
be fixed and not relative are defined by their mnemonic equivalents. 
Thus, (65) Reset Add to Lower Accumulator becomes: R ADD. Table 1 
defines these basic instructions for programming use. Programming 
using basic relative instructions is exactly the same as using 
basic absolute instructions but is somewhat slower because there 
are more numbers and characters to be written. 

The power and flexibility of relative programming are due 
to the use of functional operations or commands. The functional 
command in the relative program automatically inserts a relative 
transfer address. The location of the transfer address is the 
start of a sub-routine which is entered and executed. Then the 
program normally returns to the next sequential instruction as 
determined by a program count. The functional command SETPC 
(Set program count) is given at the beginning of a series of 
functional commands. This command sets the program count to the 
address of this instruction location. Each functional sub-routine 
always exits through a program count sub-routine. This sub-routine 
increases the program count by 1 and then transfers to the 
corresponding location. The Allison library of functional sub- 
routines has been designed such that many engineering problems 
can be programmed most efficiently using only functional commands. 
For extensive logic, however, the use of basic instructions can 
create a much more rapid and efficient program. The programmer 
can elect to use basic instructions at any time in the program 
and may return to the sequence of functional commands by giving 
any functional command. 

Operation of Relative Program 

Relative program cards are punched from the relative program 
sheet in the order of the script. Notice that the "Remarks" are 
also punched. "Remarks" are entered for the following purposes: 

a. To serve as an aid to memory. Appropriate comments 
point out unusual features of the program or program devices, the 
beginning and end of loops, and, In general, when actions are taken. 

b. To serve as a guide to other programmers or engineers, 
enabling them to use the program, if suitable, in another problem. 
Thus each program has potential use as a library routine in 
another problem. 
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Remarks can be written such that a problem is completely defined 
by then. Each step in a program can be clearly related to the 
corresponding step in an equation written in standard notation. 
A listing of the relative program cards after the program is checked 
enables programmers to modify or use the program without alteration 
if suitable in other programs. 

After preparing the relative program sheets, the programmer 
decides on the final storage allocations of the program decks. He 
enters the absolute starting location for each deck used in the 
program on the relative program sheets. This information is stored 
as a table in the relative program. Two other tables are also stored 
in the relative program, a table of Basic Commands and a table of 
Functional Commands. The relative program and tables are read into 
the 650 followed by any number of relative program cards for the 
problem. The relative program computes an absolute instruction, an 
absolute location of the instruction and punches a program deck 
sequentially numbered and containing the correct problem number. 
Punch speed is 100 cards a minute. 

As mentioned previously, functional instructions are actually 
basic instructions and the functional command normally establishes 
only a transfer location. Each functional command must use a basic 
operation command which is established by the programmer. Most 
functional commands use, however, only a limited number of basic 
commands and • to enable the programmer to think in terms of the 
operations to be performed instead of program details, additional 
entries are added to the basic table. These are: 

Added Basic Op. Equivalent Basic Op. 
Blank R ADD 

MIN R SUB 

AB RADDA 

MINAB RSUBA 

Thus the command MIN MULT means "floating point multiply minus." 
The command AB SQRT means "take the square root of the absolute 
value", etc. Normally, any basic operation may be given as part of 
a functional command. Certain functional commands require however, 
particular basic operations which are not suggested as logically 
pertaining to the functional command. For these cases short sub- 
routines are introduced which supercede the previously established 
basic command (usually R ADD) and set the proper one. For example, 
the functional table look-up sub-routine requires the basic operation 
TLU. Instead of writing TLU TLU, we write Blank (» R ADD) TLU and 
the basic operation TLU is then inserted. 

To facilitate problem tracing, each functional instruction 
is signed minus by the relative program. 
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Features of Functional Sub-Routines 

Operands for all sub-routines are stored in the lower 
accumulator by use of the basic commands R ADD, R SUB, RADDA 
or RSUBA. The result after each functional command is executed 
is stored both in the lower accumulator and in a floating point 
accumulator. There is one binary operation, the functional command 
R ADD which stores the contents of the lower accumulator in the 
floating point accumulator. If the operand of any operation is 
the result of the previous step, the data address in the relative 
program may be left blank and the relative program automatically 
inserts the correct address (that of the lower accumulator) . 

The logical handling of operands as described permits wide 
use of indexing for indexing operands. The operand of the 
functional command INDEX is entered into the lower accumulator as 
in any other functional command. The Index command then adds the 
lower accumulator to the next sequential instruction as determined 
by the program count and executes the altered instruction, without 
changing the instruction to be indexed. By the insertion of one 
basic step in the program, it is possible to create a command 
which could be titled "Increase (or Decrease) Index (Temporarily) 
and Index." A second basic instruction could permanently modify 
the index before indexing. It is also possible to examine the 
index and correct it before indexing. Other procedures, may also 
be devised depending on the need and imagination of the programmer. 
Indexing is widely used in some of the functional commands and is 
a powerful tool for programming a wide variety of problems. 

Table 2 lists the functional command programs which have 
been prepared at the present time. These include, of course, 
floating point arithmetic, floating point and fixed point elementary 
function commands. It is probable that other more uncommon 
functions such as Bessel's functions will be added if these are 
required in a problem. Functional commands which are unusual are 
the commands for floating point matrix arithmetic, the interpolate, 
differentiate and quadrature commands and the fixed and floating 
point plot commands. 

Matrix arithmetic is handled logically in the same manner as 
floating point arithmetic. The functional R ADD command is given 
addressing the first matrix or A matrix. A binary command follows 
addressing the B matrix and a store command is then given locating 
the C matrix. This command may Immediately be followed by another 
binary matrix command. All matrix operands are indexable. The 
commands perform the following matrix operations: 

ADDM Add Matrix 

A + B a C 

Note: (C may replace A or B) 
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MULTM Post Multiply B by A 
B • A = C 

MULTS Multiply A by Scalar 
B . A = A • B = C 
where B is a scalar. (C may replace A). 

INVRT Invert matrix A 

The invert command forms A" 1 replacing the elements of A by 
the inverted matrix. During the inversion, the determinant of A is 
also formed for use if required. One or more sets of simultaneous 
equations may be solved at the same time by the following commands: 

Command Data Address 

INVRT Loc (Acw) 
MULTM Loc (Bcw) 
STORM Loc (Xcw) 

where: X = A" 1 • B 

Each control word has the form, e.g., R Loc an C where R is 
the number of rows, Loc an is the location of the first element of 
the a matrix and C is the number of columns of the A matrix. The 
largest matrix which may be inverted is ho by kO with these standard 
instructions. 

Interpolate, differentiate and quadrature command operate 
on the columns of a matrix. Two commands are given, a STORC 
(Store Control Word) command followed by the appropriate functional 
command addressing the argument. The control word has the 
following form: 

C A Loccw Cp 

C^ - Column number of argument 

Cp - Column number of function 

k° c CW Location of matrix control word 
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After the command STORC Is given any number of interpolate, 
differentiate or quadrature commands may follow which use the 
same argument and function columns for the same matrix. All 
functions use the interpolation formula: 

Y - ajL + Di(X - Xi) + Cj.(X - Xi) 2 + dj^X - Xj) 3 

X i+1 ** X a Xj.+2 



If 2 



R 



(If X-*Xr_i, coefficients with the subscript R-3 are chosen 
which causes extrapolation) . 

When a functional command is given, comparisons determines 

a. Whether or not the control word has changed. If so, new 
controls are set. 

b. If the control word has not changed, whether or not the 
next argument X lies in the same interval. If so, previously 
computed coefficients are used. If not, a search is made to find 
the correct interval and new coefficients are computed. These 
functional commands perform the following calculations: 

INTPL Interpolate 

Y = a ± + b ± (X - X ± ) + Ci(X - Xi) 2 + d^X - X ± )3 

DIFF Differentiate 

dY = bi + 2ci(X - Xi) + 3di(X - Xi) 2 

dT 



STLOL Set Lower Limit 

-Xi r 

= -(Xi - X ) |ai + bi 



'*0 



YdX 



a n - x< ) 



+ Ci (X - Xi) 2 + di(X - Xi) 3 / 



1 "Tf 

STUPL Set Upper Limit 

This command causes several integrals to be summed as follows: 



\ " YdX » / i 
&0 /x o 



/X i+2 

YdX +1 

/X 1+1 



^ X i+K r X 1+ K 

_-_ f YdX -I TdX 

/ X i+K-1 A 
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(x 5x ltK ) 



This sum is taken as the result and also used as the lower 
limit. If another argument greater than the previous argument is 
used in a STUPL command, the total value of the integral/X is obtained. 

YdX 






These functional operations as described are used primarily 
for rearranging data, either at the beginning of calculation or at 
the end. For high speed running, where tables need to be consulted 
many times in the course of calculation, the same type of interpolation 
formula is used but coefficients are pre-computed and the 650 Table 
Look-Up Instruction is used for high speed searching. 

The command PLOT enables a programmer to plot computed results 
on an IBM ^07 Accounting Machine. It is possible to prepare plots 
which may be accurately scaled for interpolation or rough plots 
showing data trends. In starting a plot, the following information 
must be stored: Y , Y± - Y , S, Plot Format 



where: 



Yq - ordinate origin 
Yl-Yo height of ordinate 

S scale factor or number of type bars selected 
minus 1. 



Plot Format - 8 
P 



X I X iXXXXXXXj 
S I SYmI BIN CONI 



The P symbol 8 or distinguishes the plot format from alphabetical, 
or numerical information. 



S - Space Control 



1% 



Space 1 
Suppress Space 



SYM - Symbol Control 



1 
2 

I 



X 
* 



BIN CON - Binary digits to determine Y print wheel location. 

The argument X is read and stored in a selected location for 
printing during the plot cycle. Each space on the *K)7 is then as an 
increment of X. The function Y is now computed or selected and 
addressed in the command PLOT. This command operates as follows: 



Vji-YcJ 



P is rounded to an integer. The proper type bar is now selected by: 



the condition: 



T = P-(n-l)S, an integral n being chosen to satisfy 
§ P-(n-l)S £ S 
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We define n as the band number. If n is 1, the first hand is 
plotted and: 

If Y is outside the first band, the proper band is automatically 
selected. 

The maximum number of type bars controlled by the present plot 
program is 101. After T is selected, it is converted to a binary 
number which is used for selector pick up. The wiring for an 8 
point plotter is shown below. An extension is made for the 6*f 
point plotter. 



1-8 



6~ 



6 



o 

SYM 
Impulse 



2-80 



c?H 



CH 



6 



o o 



k - 800 

To Type Wheel 
73 5162 1*0 

o 



CH 



Oi Oi o 



CH 



\sj 



<y 



oJ 



o o 
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Operational Features of Absolute Program 

As mentioned previously, the relative program produces an 
absolute program which consists of a card deck with absolute 
locations and instructions and in addition, the relative step. 
The read program will automatically load any number of these cards 
until interrupted by a control (Load) Card. A Check Punch program 
is used for tracing. Check Punching is initiated by a set of 
Sequence Control cards which cause the program to start in any 
selected location, to either check punch or run at high speed and 
then stop the sequence at any selected location. For basic 
instructions, the Check Punch routine lists the contents of the 
distributor, upper and lower accumulators together with the 
instruction and its location. For functional instructions, contents 
of the data address and contents of the floating point accumulator 
are shown after the functional instruction is executed. Tracing is 
controlled by signing instruction, + for basic, - for functional. 
Any number of sequences may be scheduled, e.g., the program could 
run at high speed to the beginning of a loop, the loop could be 
check punched twice, high speed running could complete the loop 
and then check punching can be resumed. 

When checking is complete for a problem, instructions are 
punched seven per card by the 650 into a sequenced deck. Title 
cards and column heading cards may be read and punched by the 650. 
The programmer may also control *+07 format including page skips 
and spacing selection enabling neat and readable presentation of 
results. 
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BASIC 6?0 INSTRUCTIONS 



Basic On. 



Operation 



Optimum 
Data Addr 



R ADD 
R SUB 
RADDA 
RSUBA 

ADD 
SUB 
ADDA 
SUBA 

RADDU 
RSUBU 
ADDU 
SUBU 

MULT 
DIV 
DIV R 

SH RT 
SH RD 
SH LT 
SH CT 

STORE 
STORU 
LOAD 
STORD 

STORA 
STORI 

TLU 

NO OP 
STOP 

BRNZU 

BRNZ 

BRMIN 

BROV 

BR01 

BR02 
i 
i 

BR09 
BRIO 

READ 
PUNCH 



65) 
66) 

67) 
68) 

15) 

16) 

17) 
18) 

60) 
61) 
10) 
11) 

1?) 
6h) 

30) 
3D 
35) 
36) 

20) 
21) 

69) 
2*0 

22) 
23) 

8%) 

00) 
01) 

hh) 

>+5) 
1+6) 

91) 
92) 

99) 
90) 

70) 
71) 



Reset-Add to Lower 
Reset-Sub from Lower 
Reset-Add Abs. Value to Lower 
Reset-Sub Abs. Value from Lower 

Add to Lower 

Sub from Lower 

Add Abs Value to Lower 

Sub Abs Value from Lower 

Reset-Add to Upper 
Reset-Sub from Upper 
Add to Upper 
Sub from Upper 

Multiply 

Divide 

Divide-Reset Remainder 

Shift Right 

Shift and Round 

Shift Left 

Shift Left and Count 

Store Lower 
Store Upper 
Load Distributor 
Store Distributor 

Store Lower Data Addr 
Store Lower Instr Addr 

Table Lookup 

No Operation 
Stop 

Branch on Non-Zero in Upper 
Branch on Non-Zero 
Branch on Minus 
Branch on Overflow 



P+3 



Optimum 
Trans Addr 

P+8 



J 



P+7+2(S-l) 



P+5 
Pt5 
P+3 
P+3 


P+8 
P+8 
P+6 
P+6 


P+if 
P+if 


P+7 
P+7 


P+3 

n(No. 


P+3 + n 
of tab arg) 

P+lf 


— 


P+lf 


P+lf 
P+lf 
P+lf 
P+1+ 


p+5 
P+5 
p+5 
P+5 
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FUNCTIONAL COMMAND LIST 



Command 


Operation 


READ 


Read next card 


PUNCH 


Punch card 


MOVE 


Transfer data set 


INDEX 


Index next step 


SETPC 


Set program count 


INCPC 


Increase program count 


TR 


Unconditional transfer 


TRM 


Transfer if minus 


TRP 


Transfer if plus 


TRO 


Transfer if zero 


RADD 


Read No. into floating 




point accumulator 


EQUAL 


Store result 


CPOFF 


Turn off check punch 




Store program count 


CPON 


Turn on check punch 




Restore program count 



Deck No. 
01.0 



No.Wrds 
in Deck 

150 



ADD Floating point add 

MULT Floating point multiply 

DIV Floating point divide 

RDIV Reverse floating point divide 

SQ Floating point square root 

EXP Floating point exponential 

LOG Floating point logarithm 

SIN Floating point sine 

COS Floating point cosine 

ARCTN Floating point arc tangent 

ADDM Add matrix 

MULTM Matrix multiplication 

MULTS Scalar multiplication 

STORM Store matrix 

INVRT Invert matrix 



STORC Store control word 

INTPL Interpolate 

DIFF Differentiate 

SETLO Set lower limit for 
forward integration 

SETUP Set upper limit 

TLU Floating point table lookup 

CHKPN Check Punch 



02.0 



100 



03.0 



175 



0^.0 

\ 

0if.3 



05.0 

\ 

05.1 

t 

06.0 
07.0 



110 

125 
230 

89 

31 

60 



Remarks 

Start location 
should be 
18 50. Always 
required 



Should start 
in locations 
XXOO or XX 50 



02.0 required 
Should start 
in locations 
XXOO or XX50 



02.0 required 
Should start 
in locations 
XXOO or XX 50 

02.0 required 
Should start 
in locations 
XXOO or XX 50 

02.0 required 



02.0 
05.0 



required 



02.0 required 
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TABLE II 



Functional Command List 

FSQ Fixed point square root 08.0 175 

FEXP Fixed point exponential 

FLOG Fixed point logarithm 

FSIN Fixed point sine 

FCOS Fixed point cosine 

FARCT Fixed point arc tangent 

FTLU Fixed point table lookup 09.0 37 

PLOT Floating point plot 10.0 67 

FPLOT Fixed point plot 11.0 50 

ZTLU Floating point double TLU 15.0 71 



Should start 
in locations 
XXOO or XX 50 



02.0 required 



02.0 required 
06.0 
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DEVELOPMENT OF A FLOATING DECIMAL ABSTRACT CODING 

SYSTEM (FACS) 



Robert Bosak 
Lockheed Aircraft Corporation 



Before going into the methods and organization of the work that went 
into the development of our Abstract Coding System, it might be well to 
first explain what we mean by such a system. An Abstract Coding System, 
or as it is sometimes called, a psuedo-code is the use of one machine to 
simulate another. In some cases this is done in order to check out pro- 
grams coded for one machine on some other machine. For example; using 
the 701 to check but problems coded for the 70U before the 70U becomes 
available. In our case the purpose was to make a fixed decimal machine 
appear to the programmer as a floating decimal one. 

Our planning for the 6£0 began in April of 1?5U with the formation 
of a steering committee whose purpose was to make basic decisions in regard 
to the optimum use of the machine. One of the earliest decisions was to 
use floating decimal point operation whenever possible. Our earlier exper- 
ience had shown that this was by far the biggest step we could take to 
increase the accuracy and ease of coding. It was apparent at this stage 
of the development that our most important consideration would be one of 
actual machine time. To speed up the subroutines as much as possible it 
was decided that we would restrict the size and complexity of the list of 
instructions in our Abstract Coding System. The arithmetic operations 
finally decided upon were what we -thought a minimal list, namely: add, 
subtract, multiply, divide and negative divide as well as two branch 
instructions ~ branch on minus and branch on relative zero. By June we 
had a number of outlines of different systems to consider. The variation 
among these systems was in regard to the word breakdown rather than to the 
actual operations performed. To determine which of these systems was the 
best, portions of several problems were actually coded up in each system 
and a qualitative study made as to which one was easiest to code and to 
use and which one accomplished the most in the least number of instructions. 
After these factors were weighed, we decided on a three address system. 
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FACS COMMAND (ARITHMETIC) 
10 1 9 I 8 17 1 6| g| Ul 31 211 



Power 



NUMBER 



m 



FLOATING DECIMAL NUMBER 

Figure 1 

Two of these addresses are full four digit numbers and generally indicate 
the addresses of the operands. The third address is a one digit number 
indicating one of ten "result" storages. This digit is used as part of 
the operation code in the instructions that do not require a third address. 
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At this point in the development the question arose as to the advisa- 
bility of including a multiply-add instruction in the list of commands. 
Some of the members of the committee maintained that the frequency of its 
usage did not warrant that it be included. Other members of the committee, 
however, felt just as strongly that it did merit inclusion. To resolve 
this argument a study was made to determine the frequency of occurrence 
within a program of various arithmetic operations. This study was based 
on problems that had been run on our Card Programmed Calculators. The re- 
sults of this study are shown in Figure 2. 

FREQUENCY OF OPERATIONS 
OPERATION 



Add (not including multiply-add) 

Subtract 

Multiply (not including multiply-add) 

Negative Multiply 

Divide 

Negative Divide 

Multiply-add 



.lU 


.lU 


.30 


.19 


.1U 


.15 


.02 


.10 


.30 


.32 


.19 


.27 


.10 


.01 


.15 


.09 


.05 


.12 


.01 


.06 


.00 


.00 


.00 


.00 


.28 


.26 


.2k 


.29 



Figure 2 

The study conclusively bore out the contention that the multiply-add operation 
was frequent enough to be one of the operations in our command list and, in 
fact, was so frequent that two different versions of it were finally incorpor- 
ated. Two other unexpected benefits were derived from this study — the first 
was that the negative- divide operation was dropped from the command list since 
it appeared that it was rarely, if ever used and secondly, the relative fre- 
quency of the various operations was used to determine which of the operations 
were the most important to optimize. 

In August, the final list of commands was frozen and coding was begun on 
the subroutines making up the system. In doing the actual coding of these sub- 
routines the committee, as such, did very little of the work. Instead, the 
coding was used as training for the people in the department who had no previous 
experience with stored program machines. Individual members of the committee, 
however, did spend time in guiding the less experienced personnel and in 
actually doing a considerable amount of trimming when it came time to pack the 
subroutines together into a minimum amount of storage. In doing the detail 
coding, speed of the operation was again our primary concern. Subroutines 
were reworked in whole or in part several times in an attempt to cut down the 
time. We went so far as to try to determine the optimum placement of the 
machine language instruction after a multiplication. Several CPC problems 
were investigated and a table showing the frequency of occurrence of sums of ^ 
multiplier digits was constructed. The conclusions that were drawn from this 
study were that the optimum placement of the next instruction varied consider- 
ably from one problem to another and that the maximum difference between an 
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optimum and a non-optimum placement of the next machine language instruc- 
tion was less than 2 milliseconds. Considering these results it was de- 
cided to make multiplications and divisions convenient breaking points; 
that is, the subroutine would be optimized up to a multiplication and the 
next instruction placed so as to be optimum with respect to some other 
portion of the program rather than to the multiplication itself. Another 
device that was used to speed up tiie system is based on the fact that there 
are locations for placement of data which are optimum as far as each of the 
abstract instructions is concerned. Realizing this, all of the subroutines 
were constructed so that the optimum placement of data for one instruction 
was the same or nearly so as for another instruction. We call these groups 
of storages that are placed optimumly with respect to the system, preferred 
storages. They vary somewhat from one instruction to another but always 
include our ten result storages so that the result of one operation will 
be placed optimumly for any future instruction referring to it. 

By the end of November the system was complete and when we came to 
Endicott the last of November we succeeded in checking out almost all of 
the program. This was early enough so that we could transfer all of our 
routine work to the 6fi>0 before the first machine was delivered in March. 

While we were developing our system, our associates in the Missiles 
System Division of the company, were preparing other subroutines that would 
tie in with the FACS system. These subroutines were square root, logarithm, 
antilogarithm, sine and cosine and arc tangent. These latter subroutines 
were arranged so that they could be added to or left off of the rest of the 
system as desired. 

In using the FACS system for the last five months we have reached the 
following conclusions : 

1. The command list is a well balanced one and has proven to be 
easy to use. 

2. In training new personnel no difficulty was encountered in 
teaching the system except for one of the branch instructions 
(the branch on relative zero instruction in viiich ease of 
coding was sacrificed for speed) 

3. 80 to °C# of our work now utilizes the FACS system with no com- 
pulsion placed upon our programmers to do so. 

U. We do not intend to do any further development work for the 650 
because of the imminence of our 70ii. However, if this were not 
so the only further development that we would consider in regard 
to the FACS system is to recode portions of it in order to increase 
speed and/or compactness. 
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A GENERAL UTILITY SYSTEM FOR THE IBM TYPE 650 



The Mathematical Analysis Section 
Missile Systems Division 
Lockheed Aircraft Corporation 



THE MATERIAL CONTAINED HEREIN SHOULD ALLOW EFFECTIVE AND EFFICIENT USAGE OF 
THE TYPE 650 WITHOUT DUPLICATION OF DEVELOPMENT OR MISDIRECTION OF PRIN- 
CIPLES. THIS COLLECTION OF ROUTINES AND METHODS REPRESENTS AN OVERALL 
PHILOSOPHY OF OPERATION WHICH HAS HAD GOOD SUCCESS IN ACTUAL OPERATION IN 
AN ENGINEERING AND SCIENTIFIC APPLICATION. THESE ROUTINES HAVE BEEN USED 
IN MUCH THEIR PRESENT FORM ON 650S NUMBER 10 AND 37 AND WILL BE USED ON A 
THIRD MACHINE DELIVERED AT THE END OF JULY 1955. 

ALL OF THESE ROUTINES ARE OF THE TYPE COMMONLY KNOWN AS UTILITY . THIS MEANS 
THAT THEY ARE APPLICABLE TO MOST PHASES OF ENGINEERING OR SCIENTIFIC COM- 
PUTING. MANY ARE EQUALLY SUITABLE FOR BUSINESS APPLICATIONS. THE STANDARD 
CARD FORM*AND CONTROL PANELS DESCRIBED ARE VITAL TO INTEGRATED OPERATION OF 
THIS SYSTEM. INITIAL ADOPTION OF THIS SYSTEM FOR LATER MODIFICATION SHOULD 
PROVE TO BE A GREAT HELP TO NEW INSTALLATIONS. 

THE DEVELOPMENT OF THE FLOATING DECIMAL ABSTRACTION WAS DONE JOINTLY BY THE 
MATHEMATICAL ANALYSIS DEPARTMENTS OF BOTH THE GEORGIA DIVISION AND THE 
MISSILE SYSTEMS DIVISION OF LOCKHEED. THE ARITHMETIC PORTION IS DUE TO 
GEORGIA AND THE SUBROUTINE PORTION TO MSD. LATER DEVELOPMENTS WERE MADE AT 
MSD IN PACKAGING THE SYSTEM AND PUTTING TRACING UNDER CONTROL OF THE CON- 
SOLE. THEREFORE FACS AT GEORGIA AND FLAIR AT MSD ARE SOMEWHAT DIFFERENT 
IN OPERATION. FOR THIS REASON THE ENTIRE SYSTEM IS PRESENTED HERE AS MSD 
USES IT - DESPITE POSSIBLE DUPLICATION IN CERTAIN RESPECTS OF THE WORK 
OF THE GEORGIA PEOPLE. 

IT MAY BE NOTICED THAT THE MAJORITY OF THESE ROUTINES ARE NOT WHAT ARE COM- 
MONLY TERMED ELEGANT. EXCESSIVE POLISHING WOULD NOT GAIN US VERY MUCH IN 
MACHINE SPEED AND WOULD CERTAINLY LOSE EFFORT THAT HAD BETTER BE PUT TO 
DOING USEFUL COMPUTING WORK. THESE ROUTINES WORK AND THEY WORK SUCCESS- 
FULLY. THE MOST IMPORTANT THING IS THAT THEY ARE AVAILABLE TO ANYONE FOR 
IMMEDIATE USE. CREDITS FOR THE VARIOUS ITEMS ARE AS FOLLOWS 



ARITHMETIC FLAIR-FACS INCLUDING TRACE 

FLAIR COMPILATION AND EDITING 

FLAIR SUB-ROUTINE SQUARE ROOT 

FLAIR SUB-ROUTINE LOG-ANTILOG 

FLAIR SUB-ROUTINE SINE-COSINE 

FLAIR SUB-ROUTINE ARCTANGENT 

MACHINE LANGUAGE TRACE USABLE WITH FLAIR 

REGIONAL ASSEMBLY ROUTINE 

PUNCH DRUM FROM a TO 

PUNCH EIGHTHS OF THE DRUM 

TYPE 407 UTILITY PANEL 

TYPE 533 UTILITY PANEL 

FIVE-FIELD LOAD ROUTINE AND CARD FORM 

FLAIR TO FIXED DECIMAL ROUTINE 



GEORGIA MATH ANALYSIS DEPT. 

ED DODGE 

ROBERT BEMER 

IRENE BROWN AND JACK ANTCHAGNO 

ALBERT PODVIN 

CHARLES WIMBERLEY 

RAY CIANCI 

RAY CIANCI 

DON JACKSON 

DON JACKSON 

RICHARD MIDDLETON 

RICHARD MIDDLETON 

ROBERT BEMER 

ROBERT BEMER AND ELAINE GATTEN 



1 . Other companies may temporarily order the card form from IBM 
in San Jose, California, if they so desire. 
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FIVE-FIELD LOAD ROUTINE 



THIS TYPE 650 LOADING ROUTINE IS DESIGNED TO LOAD FIVE WORDS PER CARD IN 
RANDOM ADDRESSES. THE FORMAT IS THAT LABELED NUMBER 1 ON THE STANDARD 650 
CARD FORM. A FIVE-WORD CARD WAS CHOSEN ARBITRARILY TO EFFECT THE MOST 
EFFICIENT LOADING WITH A MINIMUM OF RESTRICTIONS. THIS ROUTINE IS BELIEVED 
TO BE THE SIMPLEST IN OPERATION AND CAN LOAD THE ENTIRE MEMORY IN 2 MINUTES. 

A LOAD-IDENTIFICATION CARD CONTAINING THE SIX INSTRUCTIONS OF THE LOADING 
ROUTINE MUST PREFACE ANY ROUTINE. 8000 IS SET TO 70 1901 XXXX. DEPRESS 
THE COMPUTOR RESET AND PROGRAM START BUTTONS. PLACE THE ROUTINE IN THE 
READ HOPPER OF THE TYPE 533 AND DEPRESS THE READ START BUTTON. THE LOAD- 
IDENTIFICATION CARD IS READ UNDER THE CONTROL OF 8000 AND THE NEXT INSTRUCT- 
ION WILL BE TAKEN FROM 1901. THIS INSTRUCTION IS ONE OF THOSE READ IN FROM 
THE LOAD-HUB CARD AND CALLS FOR THE READING OF THE FIRST FIVE-FIELD LOADING 
CARD. THE NEXT INSTRUCTION IS TAKEN FROM 1902 AND RANDOM LOADING PROCEEDS 
BY SUCCESSIVE LOAD AND STORE DISTRIBUTOR COMMANDS. THE CYCLICAL PATTERN OF 
LOADING IS EVIDENT BY TRACING THE INSTRUCTIONS. THE AND I PARTS OF 
THE STORE DISTRIBUTOR COMMANDS ARE EMITTED ON THE TYPE 533 PANEL. THE DIA- 
GRAM OF THE TYPE 533 UTILITY PANEL SHOWS THIS WIRING IN THE C READ POSITION, 

THE ONLY RESTRICTION OF THIS SYSTEM IS THAT THE LAST INSTRUCTION LOADED IN 
MEMORY IS THE FIRST TO BE OBEYED IN THE ROUTINE. THIS IS ACCOMPLISHED BY A 
12 PUNCH IN THE UNITS POSITION OF THE A PART OF ANY OF THE FIVE FIELDS. 
THIS PUNCH TRANSFERS A CO-SELECTOR WHICH REPLACES THE I PART OF THE STORE 
DISTRIBUTOR COMMAND BY THE D PART. THUS THE LAST INSTRUCTION IS LOADED 
INTO ITS ADDRESS AND THE LOAD ROUTINE IS DISRUPTED SO THAT THIS INSTRUCTION 
IS THE NEXT TO BE OBEYED. THIS AUTOMATICALLY STARTS THE PROGRAM UPON COM- 
PLETION OF LOADING. TO RESTART THE PROGRAM ONCE IT HAS BEEN LOADED IT IS 
NECESSARY TO USE ONLY THE LOAD-IDENTIFICATION CARD AND THE CARD CONTAINING 
THAT FIRST INSTRUCTION TO BE OBEYED. 



LOAD-IDENTIFICATION CARD 

WORD 1 70 1951 1902+ 
WORD 2 69 1952 1951+ 
WORD 3 69 1954 1953+ 
WORD 4 69 1956 1955+ 



12-PUNCH IN COLUMN 1 

WORD 5 69 1958 1957+ 

WORD 6 69 1960 1959+ 

WORD 7 10 8001 1965+ 

WORD 8 35 0001 1966+ 



NOTE WORDS 1 THRU 8 ENTER ADDRESSES 1901 TO 1908 RESPECTIVELY. 

WORDS 7 AND 8 IN STORAGES 1907 AND 1908 ARE USED IN FLAIR* THEY MUST BE ON 
THE LOAD-IDENTIFICATION CARD TO PRESERVE THEM IN CASE THE LOAD-IDENTIFICAT- 
ION CARD IS USED AFTER FLAIR IS ALREADY ON THE DRUM. 

A D AND I ARE READ FROM EACH FIELD OF THE FIVE-FIELD LOAD CARD SO 
THAT STORAGES 1951 THRU 1960 ARE FILLED AS FOLLOWS 



A 





D 


I 


A 





D 


I 


A 





D 


I 


1951 


24 


Ai 


1903 


1955 


24 


A 3 


1905 


1959 


24 


As 


1901 


1952 


0, 


Di 


Ii 


1956 


o 3 


D 3 


I 3 


1960 


Os 


D 5 


Is 


1953 


24 


A 2 


1904 


1957 


24 


A 4 


1906 










1954 


o 2 


D 2 


U 


1958 


o 4 


f>4 


I 4 











SINCE THE I PART OF 8000 IS NOT USED IN THIS ROUTINE THESE FOUR POSITIONS 
MAY BE USED AS EFFECTIVE SENSE SWITCHES BY SETTING THEM AT 8 OR 9 AND 
INTERROGATING 8000 DURING THE ROUTINE. 8000 MAY ALSO BE SET EITHER + OR - 
AND INTERROGATED FOR DECISION. DO NOT ALTER THE SETTING OF 8000 SWITCHES 
WITHOUT FIRST DEPRESSING THE PROGRAM STOP BUTTON. 
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DECK 



NO. 





1 2 3 

II II I 

222 
333 

Ml 
555 

566 

m 



SEQ. 



9999 





6 7 I t 10 

11 II I 

22222 
33333 
4 4 4 4 4 
55555 

36666 
7777 



99 



D 



8988 
9999 



00 D 

II II II 14 
1111 

2222 

3333 



HE 



4TTT 
5 555 



0000 

II II II ID 
1111 

2222 

3333 



0000 

21 22 13 14 
1111 

2222 
3333 



4444 
5555 



0000 

75 2B II IB 

lilt 

2222 
3333 



000 

II II II 34 
1 1 1 



0000 

IS 38 II 38 
1111 



OOO 

33 40 41 42 
1111 



3E 



OCs 



0000 

43 4141 
1111 







8 



5_5] 



T4T4 
5555 



4IREGI0NAL INSTRUCTION ! 



esse 

7777 



8003 



888888988 
99 99999999 



6 6 6 616 618 6 9 6 

7 7 7 7(7 7(7 7 7 7 



8002 



888888888 



9 9 9999999 



2 27 

3333 

4444 

5555 

6666 

777 



1 FIVE-FIELD LOADER 



0000 

41 50 31 51 
ill I 



7777 
3333 
44 



7777 
3333 



44 

5555 

666E 

7 77 



8001 



2 212 222 



772 2 



0000 

31 34 S3 SO 
1111 

2222 



3 3l3 3 3 3l3 3 3 3J3 .1 .1 .1 



06 



4~4T 
5555 
6666 
7777 



TTT 
5555 
6666 
ILL 



8 B 8 8 



W. 



ST 



0000 

53 60 CI 61 

mi 

2222 
3333 



4 4 4 4 4 4 4 4 4 4 
55 55555555 



0000 

6164 63 66 
I 1 1 I 

2222 
3333 



iff 



000 

61 61 63 10 
I I 1 I 

2222 
3333 



o<s 



0000 

31 14 15 16 
1111 

2222 
3333 







0000 

11 » II to 
1111 

2222 

3333 



4 4444444 4 4" 
55555555 55 



131 FLAIR TRAC F 



66 6666 66 66 
7777777777 



8003 



8 8 88a 8 s u na 



L2XMAC_HI_NE LANGUAGE TRACE I 
9 9 9 9 9 9 9 9 9 9[9TT9T9"9T9TT9T9TTT9TT9 ! 



^■j^j™^^ 



666 6666666 
7777777777 



BOQ2 



8 8 8 8888898 



4XL 



4 4 4 4 4 4 4 4 4 4" 

5555555555 

6 66 6 6 6666 

""77777 



8QOI 



9 99 99 9 99 9 91 

11 71 71 74 15 76 77 71 73 to! 



DECK 033.01 PUNCH « EIGHTHS OF THE DRUM 

with it sra ? °?o s.rE TE ™" r ™™ PUNCHIN6 STARTS 



0997 


01 


8000 


0924 


16 


8001 


0917 


24 


0978 


0920 


24 


0980 


0924 


22 


0981 


0929 


24 


0986 


0938 


35 


0008 


0941 


16 


0994 


0944 


65 


0996 


0990 


69 


oooo 


0994 


00 


0000 


0932 


16 


0993 


0936 


60 


8002 



8000 

0915 

0918 

0921 

0919 

0930 

0939 

0942 

0945 

0917 

OOOl 

0933 

0937 

KFSrlLIT? JaVlT ™'"™ LOADER F0RM FR0 „ JHE 



0912 


69 


8003 


0913 


0915 


15 


0990 


0916 


0918 


22 


0977 


0919 


0921 


22 


0979 


0929 


0926 


24 


0984 


0927 


0930 


22 


0985 


0931 


0939 


44 


0946 


0940 


0942 


45 


0943 


0997 


0945 


15 


0995 


0916 


0992 


00 


0050 


0003 


0996 


00 


0200 


OOOO 


0933 


20 


0995 


0934 


0911Y 


65 


8000 


0912 



0913 

0916 

0919 

0923 

0927 

0937 

0940 

0943 

0946 

0993 

0931 

0934 



D 

23 0991 
10 0992 
15 8003 

24 0982 
22 0983 
10 8001 
65 0991 
20 0991 
65 0995 
00 0199 
71 0977 
30 0004 



0914 

8002 

8002 

0924 

0919 

0938 

0941 

0944 

0916 

0012 

0932 

0936 



C PUNCH OF THE TYPE 



OPERATION 
PUNCHING 



DECK 033.02 PUNCH DRUM FROM a TO B 



INSTRUCTIONS 
IS ALSO ON THE 

D T 



F ?7 J H JL^ U ^ NE ARE ™ E SAME AS F °R DECK 033.01. 
FIVE-FIELD LOADER FORM BUT SEQUENTIAL ON EACH CARD. 



1911 


69 


1946 


1912 


1912 


35 


0004 


1913 


1913 


22 


1910 


1914 


1914 


35 


0002 


1943 


1943 


60 


8003 


1915 


1915 


35 


0004 


1916 


2916 


15 


1947 


1917 


1917 


10 


1948 


8003 


1918 


24 


1928 


1919 


1919 


21 


1927 


1945 



1920 


24 


1930 


1921 


1921 


21 


1929 


1945 


1922 


24 


1932 


1923 


1923 


21 


1931 


1945 


1924 


24 


1934 


1925 


1925 


21 


1933 


1945 


1926 


24 


1936 


1944 


1944 


21 


1935 


1937 


1937 


71 


1927 


1938 


1938 


11 


1910 


1939 



1939 


46 


1940 


1941 


1940 


10 


8001 


1942 


1942 


10 


1949 


8003 


1941 


01 


OOOO 


OOOO 


1945 


10 


8 002 


8003 


1946 


69 


OOOO 


OOOO 


1947 


00 


0001 


0002 


1948 


69 


OOOO 


1918 


1949 


00 


OOOO 


9992 


19 00Y 


67 


8000 


1911 
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DECK 033.05 - MACHINE LANGUAGE TRACING ROUTINE 



ALL MACHINE LANGUAGE COMMANDS ARE ANALYZED IN OPERATIONAL ORDER. THE LOCA- 
TION ADDRESS -OPERATION CODE - DATA ADDRESS AND THE THEORETICAL CONTENTS 
Ip Sft5?-8002 AND 8001 ARE PUNCHED. TWO SUCH INSTRUCTIONS ARE PUNCHED i PER 
D 003 L o F THESE CARDS ENABLES STEP-WISE FOLLOWING OF THE RESULTS OF 

Factual "JroIram. thI card forSat is that labeled number 2 on the 
standard 650 card form. 

THE TRACING ROUTINE MAY BE STORED IN ANY TWO ADJACENT DRUM BANDS. THE 
ATT flf-HFn CODING IS LOCATED FROM 1200 TO 1299. THE ROUTINE MAY BE EITHER 
pfl?rn Sn ?Se DRUM PREVIOUSLY OR ACCOMPANY THE PROGRAM TO BE TRACED. IN 

either ?ase a Facing control card must be inserted in the program deck 

IeySnD ThI lSaDiSg OF THAT INSTRUCTION WITH WHICH TRACING BEGINS. IF THE 



TRACING CONTROL CARD IS LOADED SEPARATELY 
ORIGINAL INSTRUCTION IN A x CONTAIN 800X. 
ALONG THE PROGRAM. THE PROGRAM CONTINUES 
LAST ADDRESS TRACED IS REACHED. 
ADDRESS OF FIRST INSTRUCTION TO 
THE INSTRUCTION AT ADDRESS Ai. 
I, IS SENT TO ADDRESS a a . USUALLY a x s Ai 
TRACING WILL BEGIN WHENEVER THE ADDRESS ^ 
THIS FEATURE FACILITATES LOOP TRACING. 
ADDRESS OF LAST INSTRUCTION TO BE TRACED. 



AFTER THE 

I 
a 



A, CANNOT BE 80OX NOR CAN THE 
TRACING MAY START AT ANY PLACE 

AT MACHINE SPEED WITHOUT TRACING 
SYMBOLS FOR THIS ROUTINE ARE 

BE TRACED. 



l 
i 



HOWEVER 
IS AGAIN 



IF »l^ Ai 
INSTRUCTED. 



A„ - 



THE TRACING CONTROL CARD IS A FIVE-FIELD LOADER. IT SHOULD CONTAIN THE 
FOLLOWING THREE WORDS FOR USING ONLY MACHINE LANGUAGE TRACE. 



A 
1298 



D 
-I 



I 



A 
1299 



D 
65 <*, 



I 
A. 



A D I 
A, 24 1284 1265 



IT SHOULD CONTAIN THE FOLLOWING TWO WORDS WHEN TRACING IS TO BEGIN IN 
FLAIR AND CONTINUE ALTERNATELY IN MACHINE LANGUAGE AND FLAIR. 



A D I A 

1290 69 8000 1243 1677 



D I 
16 1834 1239 



TF TRACING IS TO BEGIN WITH MACHINE LANGUAGE AND ALTERNATE WITH FLAIR ALL 
rnMTPO. OF THE HUNDREDS POSITION OF 8000D. WHEN 8000 READS 70 1901 XXXX 

;Sr a S S e r^ c ^Sn «to u k^ 

8 F 000 READS AC 70 6 1801 XXXX TRACING WILL CONTINUE THRU BOTH M. L. AND FLAIR. 
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A 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 

1212 



D 
69 1249 
23 1285 
60 1282 
19 1283 
46 1207 
60 1282 
15 1283 
60 1283 

19 1262 
15 1282 
14 1262 
21 1278 

20 1279 



I 
1201 
1202 
1242 
1204 
1205 
1206 
1211 
1208 
1209 
1210 
1211 
1212 
1213 



A 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 



D 
22 1233 
60 1282 
15 1283 
69 1284 
65 0000 
24 1249 
65 1233 
30 0004 
69 1221 
24 1218 
20 1249 
69 1249 
24 1285 



I 

1218 

1231 

1232 

1233 

1234 

1235 

1236 

1287 

1238 

1240 

1248 

1241 

1202 



A 
1259 
1260 
1261 
1262 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 



D 
00 1227 
71 1277 
65 1254 
99 9999 

20 1283 

21 1282 
65 1299 
69 1258 

23 1258 
69 1273 

22 1273 
69 1298 

24 0000 



I 
1215 
1237 
8002 
9999- 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 



A 





D 


I 


1213 


69 


1284 


1214 


1214 


24 


1280 


1285 


1215 


24 


1284 


1216 


1216 


20 


1283 


1217 


1217 


21 


1282 


1225 


1218 


71 


1277 


1219 


1219 


69 


1220 


1222 


1220 


69 


1221 


1222 


1221 


71 


1277 


1219 


1222 


24 


1218 


1223 


1223 


69 


1281 


1224 


1224 


24 


1277 


1230 


1225 


65 


1249 


1226 


1226 


35 


0004 


1228 


1227 


65 


1249 


1228 


1228 


69 


1233 


1229 



TRAC 


ING 


ROUTINE — 


CONTINUED 






A 





D 


I 


A 





D 


I 


1242 


45 


1203 


1205 


1274 


24 


1249 


1275 


1243 


97 


1244 


1245 


1275 


30 


0004 


1276 


1244 


45 


1293 


1291 


1276 


20 


1277 


1287 


1245 


65 


1247 


1246 


1286 


88 


8080 


0000 


1246 


20 


1218 


1293 


1287 


69 


1249 


1288 


1247 


00 


0000 


1237 


1288 


23 


1281 


1289 


1248 


24 


1283 


1236 


1289 


16 


1258 


1290 


1250 


39 


9000 


0000 


1290 


45 


1293 


1291 


1251 


49 


9000 


0000 


1291 


65 


1260 


1292 


1252 


89 


9000 


0000 


1292 


20 


1218 


1293 


1253 


99 


9000 


0000 


1293 


65 


1261 


1294 


1254 


65 


1259 


1200 


1294 


69 


1249 


1295 


1255 


65 


1259 


1296 


1295 


84 


1254 


8002 


1256 


65 


1259 


1200 


1296 


69 


1249 


1297 


1257 


65 


1259 


1296 


1297 


22 


1285 


1201 


1258 


00 


0065 


1735 











DECK 033.06 - REGIONAL ASSEMBLY ROUTINE 



REGIONAL CODING IS DESIRABLE FOR ABSTRACT SYSTEMS. INDEXED REGIONAL 
ADDRESSES ARE ASSIGNED WHICH CAN BE CONVENIENTLY CONVERTED TO MACHINE 
ADDRESSES. LONG PROGRAMS MAY BE BROKEN INTO SECTIONS WHICH MAY BE CODED 
CONCURRENTLY AND SEQUENTIALLY AS IF STARTING AT ADDRESS 0000. EACH SECTION 
IS ASSIGNED TO TRUE DRUM ADDRESSES WITH THE ASSEMBLY ROUTINE WHEN THE PRO- 
GRAMMING IS COMPLETED. C2 0352 IS AN EXAMPLE OF A REGIONALLY CODED AD- 
DRESS. C2 IS THE ADDRESS INDEX AND 0352 IS THE ADDRESS WITHIN THE C2 REG- 
ION. ALPHA-NUMERIC INDICES FROM A0-A9 TO H0-H9 ARE ALLOWABLE. 

ONE REGIONAL INSTRUCTION IS PUNCHED PER CARD* THE FORMAT IS NUMBER 4 OF 
THE STANDARD 650 CARD FORM. THE LOCATIONS OF REGIONAL INSTRUCTIONS AND THE 
REGIONS THEMSELVES DO NOT HAVE TO BE SEQUENTIALLY ORDERED. A DUMMY IN- 
STRUCTION WITH THE INDEX ADDRESS 10 MUST FOLLOW THE LAST INSTRUCTION OF 
THE LAST REGION TO BE ASSEMBLED. 

RELOCATION OF ANY INDEXED ADDRESS TO THE TRUE DRUM ADDRESS IS ACCOMPLISHED 
BY SPECIFYING THE INCREMENT BY WHICH THE ADDRESS PART IS TO BE ADJUSTED AND 
THE LAST INDEXED INSTRUCTION TO BE SO ADJUSTED. THE ASSEMBLY ROUTINE WILL 
PUNCH THE DESIRED ASSEMBLED PROGRAM FROM THE C POSITION OF THE TYPE 533 
UTILITY PANEL ONTO THE STANDARD FIVE-FIELD LOAD CARD. 

INSERT ADDITIONAL REGIONAL INSTRUCTIONS INTO A COMPLETED REGION BY ADDRESS- 
ING AS MANY AS ARE NEEDED WITH THE SAME ADDRESS AS THE INSTRUCTION THEY 
FOLLOW. PLACE THEM IN THE PROGRAM DECK IN THIS ORDER. CONTROL CARD INFOR- 
MATION MUST BE ADJUSTED ACCORDINGLY. DELETION IS COMPARABLE TO INSERTION 
EXCEPT THAT THE UNDESIRED INSTRUCTION CARDS ARE REMOVED. THESE ALTERATIONS 
AND EACH REGIONAL INDEX USED MUST BE REPRESENTED WITH CONTROL INFORMATION. 
CONTROL WORDS ARE LOADED ON FIVE-FIELD LOADERS IN SEQUENTIAL ADDRESSES 
STARTING WITH 1000. AN EXAMPLE OF AN ASSEMBLY CONTROL CARD IS 



A D I 
1000 B2 0315 0100 



A D I 
1001 B5 0106 0500 



A D I 
1002 D3 0021 0620 ETC. 



IS THE ALPHA-NUMERIC ADDRESS INDEX OF THE REGION 

D IS THE LAST REGIONALLY INDEXED ADDRESS OF THAT REGION 

1 IS THE INCREMENT TO BE ADDED TO ALL ADDRESSES IN THAT REGION 
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REGIONAL ASSEMBLY ROUTINE — CONTINUED 



CARDS ARE PLACED IN THE TYPE 533 IN THE FOLLOWING ORDER 

1. LOAD-IDENTIFICATION CARD 

2. DECK 033.06 - REGIONAL ASSEMBLY ROUTINE 

3. ASSEMBLY CONTROL CARDS AS NEEDED 

4. STARTER CARD - 0500Y 65 0807 0501 IN FIELD 1« 

5. REGIONALLY-CODED PROGRAM - ONE INSTRUCTION PER CARD 



A 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0508 
0509 
0510 
0511 
0512 
0513 
051* 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 
0533 
0534 
0600 
0536 
0537 
0538 
0539 
0810 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 



D 
65 0807 
35 0001 
20 0817 

20 0818 

21 0819 
65 0803 

20 0559 
70 0401 
65 0401 
35 0002 

21 0816 
30 0001 
11 0807 
46 515 
65 0817 
16 0816 
45 0580 
65 0818 
16 0401 

45 0521 

46 0522 
24 0818 
65 0802 

21 0819 
65 0819 
15 0806 
20 0819 
65 0808 
69 0401 
84 1000 
69 8003 
23 0811 
65 0809 
69 0402 
20 0782 
69 8003 
23 0812 
65 0810 
69 0403 
65 1000 
69 8003 
23 0813 
65 0812 
35 0004 
15 0402 
69 8003 

22 0821 
65 0403 
30 0004 
15 0813 



I 
0501 
0502 
0503 
0504 
0505 
0506 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0615 
0516 
0517 
0518 
0519 
0520 
0525 
0641 
0523 
0524 
0528 
0526 
0527 
0528 
0529 
0530 
8002 
0532 
0533 
0534 
0530 
0603 
0537 
0538 
0539 
0530 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 



A 





D 


I 


0551 


69 


8003 


0552 


0552 


23 


0822 


0553 


0553 


65 


0811 


0554 


0554 


35 


0004 


0555 


0555 


15 


0401 


0556 


0556 


15 


0819 


0557 


0557 


69 


8003 


0558 


0558 


22 


0820 


0559 


0559 


24 


0777 


0560 


0560 


65 


0559 


0561 


0561 


15 


0806 


0562 


0562 


69 


0570 


0563 


0563 


22 


0570 


0564 


0564 


65 


0405 


0565 


0565 


46 


0566 


0568 


0566 


66 


0821 


0567 


0567 


16 


0822 


0642 


0568 


65 


0821 


0569 


0569 


15 


0822 


0642 


0570 


20 


0778 


0571 


0571 


65 


0570 


0572 


0572 


16 


0804 


0573 


0573 


45 


0574 


0577 


0574 


15 


0805 


0575 


0575 


69 


0559 


0576 


0576 


22 


0559 


0508 


0577 


71 


0777 


0578 


0578 


65 


0803 


0579 


0579 


20 


0559 


0508 


0580 


24 


0817 


0581 


0581 


69 


0401 


0582 


0582 


24 


0818 


0583 


0583 


65 


0559 


0584 


0584 


21 


0819 


0585 


0585 


16 


0803 


0586 


0586 


45 


0587 


0528 


0587 


16 


0802 


0588 


0588 


45 


0589 


0593 


0589 


16 


0802 


0590 


0590 


45 


0591 


0597 


0591 


16 


0802 


0592 


0592 


45 


0605 


0601 


0593 


65 


0801 


0594 


0594 


10 


0800 


0595 


0595 


21 


0779 


0596 


0596 


20 


0780 


0599 


0597 


65 


0801 


0598 


0598 


10 


0800 


0599 


0599 


21 


0781 


0600 



A 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
0611 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 



D 
65 0801 
10 0800 
21 0783 

20 0784 
65 0801 
10 0800 

21 0785 
20 0786 
71 0777 
65 0803 

20 0559 
65 0559 
16 0803 
45 0618 
16 0802 
45 0620 
16 0802 
45 0622 
16 0802 
45 0636 
65 0801 
10 0800 

21 0779 

20 0780 
65 0801 
10 0800 

21 0781 

20 0782 
65 0801 
10 0800 

21 0783 

20 0784 
65 0801 
10 0800 

21 0785 
20 0786 
71 0777 

01 0000 
15 0404 
00 1960 
99 9999 
00 0002 
24 0777 
20 0786 
20 0787 
00 0001 
00 0000 
65 1000 
65 1000 



I 
0602 
0603 
0604 
0607 
0606 
0607 
0608 
0609 
0610 
0611 
0528 
0616 
0617 
0641 
0619 
0624 
0621 
0628 
0623 
0632 
0625 
0626 
0627 
0630 
0629 
0630 
0631 
0634 
0633 
0634 
0635 
0638 
0637 
0638 
0639 
0640 
0641 
0500 
0570 
0000 
9999 
0000 
0560 
0571 
0571 
0000 
0009 
0531 
0536 
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DECK 033*18 



FLAIR TO FIXED DECIMAL ROUTINE 



THIS ROUTINE TAKES A DECK OF LOAD HUB CARDS CONTAINING EIGHT FLAIR NUMBERS 
OF THE FORM PP .XXXXXXXX AND CONVERTS THEM TO NINE-DIGIT FIXED DECIMAL 
NUMBERS. THE POSITIONS OF THE DECIMALS ARE DETERMINED BY A LOAD HUB CON- 
TROL CARD WHICH ALSO CONTAINS THE DECK NUMBER. 



AAAAA 000 5B 
0000 0000 5B 



THE FIRST FIELD 

THE SECOND THROUGH EIGHTH FIELDS 
WHERE 

AAAAA IS THE DECK NUMBER 

B IS THE NUMBER OF WHOLE NUMBERS IN A NINE-DIGIT FIELD 

THE DECK IS PLACED INTO THE TYPE 533 IN THE FOLLOWING ORDER. 

1. LOAD-IDENTIFICATION CARD 

2. DECK 033*18 

3. LOAD HUB CONTROL CARD 
4* LOAD HUB DETAIL CARDS 

THE DECK NUMBER IS SPLIT OFF FROM THE FIRST FIELD AND STORED IN 0077 

A D I 

0039 70 0042 0042 

0042 60 0001 0011 

0011 30 0002 0017 



A 





D 


I 


A 


D I 


0017 


11 


8003 


0025 


0095 


21 0001 0015 


0025 


24 


0077 


0089 






0089 


35 


0002 


0095 







FIELDS ONE THROUGH EIGHT ON THE DETAIL CARDS ARE CONVERTED TO FIXED 
DECIMAL AS SPECIFIED AND STORED IN 0078 THROUGH 0085 RESPECTIVELY. 



A 





D 


I 


A 





D 


I 


A 





D 


I 


0015 


70 


0064 


0064 


0062 


20 


0067 


0070 


0021 


16 


0024 


0030 


0064 


65 


0067 


0071 


0070 


16 


0073 


8002 


0030 


20 


0033 


0036 


0071 


15 


0074 


0029 


0073 


00 


0050 


0050 


0036 


65 


0040 


0009 


0067 


65 


0050 


0063 


0013 


18 


0072 


0027 


0088 


65 


0091 


0096 


0061 


65 


0050 


0063 


0027 


35 


0004 


0037 


0096 


16 


0033 


0038 


0074 


00 


0001 


0000 


0037 


46 


0073 


0041 


0038 


45 


0064 


0050 


0029 


20 


0047 


8002 


0044 


31 


0001 


0033 


0050 


69 


0061 


0014 


0063 


35 


0002 


0069 


0041 


15 


0044 


0049 


0014 


24 


0067 


0020 


0069 


21 


0072 


0075 


0049 


20 


0009 


0012 


0020 


71 


0077 


0015— PCH 


0075 


20 


0040 


0094 


0012 


65 


0067 


0021 


0091 


20 


0085 


0088 


0094 


65 


0047 


0062 


0024 


44 


9972 


9975 











PUNCHING FOR THIS ROUTINE IS NOT ON THE TYPE 533 UTILITY PANEL 
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TYPE 407 UTILITY PANEL 



THIS PANEL WILL LIST THE FOUR TYPES OF CARDS WHOSE FORMATS ARE ON THE 
STANDARD 650 CARD FORM. PRINTING OF THE SELECTED FORM AND APPROPRIATE 
HEADING IS AUTOMATIC WITH THE 12 PUNCH IN COLUMN 3 5 7 OR 11* ALWAYS 
TAKE A FINAL TOTAL BEFORE PRINTING. PREFACE LIST DECKS BY A BLANK CARD. 
THIS AUTOMATICALLY CAUSES A SKIP TO THE NEXT PAGE AND HEADS BEFORE PRINT- 
ING. PRINTING IS BASICALLY 50-10. THIS IS CONVENIENT FOR PRINTING DRUM 
PUNCH-OUT IN DRUM FORMAT. THE FIVE-FIELD LOADERS LIST WITH a AND IN 
THE HEADING IF ALTERATION SWITCH 1 IS NORMAL. THE HEADING CONTAINS THE 
NORMAL D AND I IF THIS SWITCH IS TRANSFERRED. 

THE LOCKHEED 407S FOR MATHEMATICAL WORK HAVE SPECIAL TYPE WHEELS AS FOLLOWS 



4-8 


o 


3-8 


+ 


0-1 


S 


0-4-8 


$ 


0-3-8 


u 


12 


y 


11-4-8 


2 


11-3-8 


P 






12-4-8 


A 


12-3-8 


. 







WIRING FOR THIS PANEL IS SHOWN ON A 407 BOARD DIAGRAM WHERE CONVENIENT* 
OTHER WIRING IS LISTED BELOW BY TERMINALS ACCORDING TO THE DIAGRAM INDEX. 



A59- 


130 


Q54- 


R58 


Z49- X25 


AD13-AG05 


A006-AF28 


AQ36- W39 


A63- 


AC52 


R37- 


G64 


Z50- X18 


AD41- 041 


A010- A31 


AQ37- W40 


A67- 


C55 


R43- 


R61 


Z51- X04 


AD42- 045 


A011-AZ19 


AQ79- R39 


A78- 


J30 


R44- 


R62 


Z52-BG78 


AD43- 049 


A014-AZ24 


AT18-BA40 


D57- 


CIO 


R66- 


AD48 


AA33-AK08 


AD44- N41 


A015-AZ28 


AZ46-AE28 


E33- 


N64 


R67- 


V17 


AA34-AK12 


AE45-AG06 


A016-AZ29 


AZ47-AE29 


E34- 


J55 


R68- 


AZ76 


AA35-AK28 


AE46-AG31 


A018-AZ32 


AZ65-AR14 


F41- 


AG32 


R69- 


AZ77 


AA36- 120 


AE47-AI29 


A021-AZ38 


AZ66-BI54 


G65- 


AP79 


R71- 


AW66 


AA37- J2 


AE48-AI31 


A024-BA01 


AZ67-BI70 


G73- 


AW68 


R72- 


AW67 


AA38-A004 


AE50-AI08 


A025- L04 


AZ68-BL60 


158- 


S68 


S20- 


P56 


AA39- K20 


AE51-AI17 


A026-AD47 


AZ69-BI38 


K30- 


B75 


S26- 


■ P58 


AA40-A008 


AE52-AI21 


A027-AD49 


AZ71-BI39 


K53- 


AQ67 


S28- 


• R47 


AA41-A039 


AF01-AI07 


A028- M28 


AZ72- V23 


K57- 


Ell 


S33- 


• P59 


AA42-AW45 


AF25-AK07 


A029-AD51 


AZ73- M15 


L72- 


X27 


S49- 


• P62 


AA43-AZ44 


AF41- A03 


A030-AD46 


AZ74-BA47 


M05- 


V24 


T02- 


■ P57 


AA44-AZ48 


AF42- A05 


A037- A29 


AZ75- X06 


M06- 


V25 


T06- 


• Y50 


AA45-AZ59 


AF43- A07 


A041-AJ32 


AZ78-AC15 


N42- 


•BK18 


T20- 


• Y43 


AA46- 105 


AF44- All 


AP04-AQ30 


AZ79-AC29 


N43- 


E56 


T21- 


• Y46 


AA52-BI39 


AF45-AD14 


AP12-AZ21 


AZ80-AH09 


042- 


•BK15 


T22- 


• Y49 


AB33-AF26 


AF46-AD24 


AP13-AZ22 


BA69-BI79 


043- 


• E53 


T37- 


• R49 


AB34-AF30 


AF47-AD28 


AP15-AZ30 


BA70-BI58 


046- 


•BK16 


T38- 


• Y48 


AB35-AF40 


AF48-AD30 


AP19-AZ35 


BB66-BJ54 


047- 


• C38 


Z33- 


•AB50 


AB36-AE20 


AF49-AD38 


AP20-AZ36 


BB67-BJ70 


048- 


■ E54 


Z34- 


-AB49 


AB37-AF20 


AF50-AF02 


AP23-BA02 


BB69-BJ79 


050- 


•BK17 


Z35- 


•AB48 


AB38- H10 


AF51-AF12 


AP24-BA03 


BB70-BJ58 


051- 


• E55 


Z36- 


• 121 


AB39- H20 


AF52-AF16 


AP67- L31 


BB71-BH77 


P66- 


■ W06 


Z37- 


■ J21 


AB40- H30 


AF59- K68 


AQ04- V35 


BB75- L70 


P67- 


• Z47 


Z38- 


-AQ05 


AB41- H40 


AF63- K61 


AQ10- W31 


BB76- G19 


P68- 


• L10 


Z39- 


- K21 


AB42- G30 


AF67- H66 


AQ15-AR26 


BB77- G25 


P69- 


- Lll 


Z40- 


-A009 


AB43- G40 


AF71- K60 


AQ25-AD45 


BI39-BH56 


Q48- 


■ R54 


Z41-A040 


AB44-AE30 


AI12- F42 


AQ26- L13 


BL31- X71 


Q49- 


• R55 


Z42- 


-AW46 


AB46-AC05 


AJ35- N70 


AQ27- L23 


BL32- X67 


Q51- 


• R56 


Z43- 


-AZ45 


AB47- Gil 


AJ35- K70 


AQ28-AD50 


BL33- X63 


Q52- 


- R59 


Z44- 


-AZ49 


AB52-BH78 


AK16- H41 


AQ29-BA55 


BL34- X59 


Q53- 


• R57 


Z45- 


-AZ60 


AC51- H70 


A005- V36 


AQ31- W52 


BL40- E57 
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IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 
ACCOUNTING MACHINE, TYPE 407, CONTROL PANEL DIAGRAM 



o £ o - vf* „ o ; ° o 

/ 

x=:.:= 




r y Minm fton 



-DIAGRAM NO.. 



6 50 1ITII ITY PANFI 



39 



TYPE 407 UTILITY PANEL — CONTINUED 



S19- P51- P46 
S24- P48- P54 
S34- P53- X46 
T36- P49- W52 
Q47- P52- X45 
S44- P47- P61 



U43- Y51- Y52 

V49- R52- Q61 

V50- R53- Q62 

AP11-AO12-AZ20 

AP14-A013-AZ23 

AP16-A017-AZ31 



AP17-A019-AZ33 
AP18-AO20-AZ34 
AP21-A022-AZ39 
AP22-AO23-AZ40 
BA66-BI35-BA67 
BB68-BI36-AZ70 



T03- T19- T35- W47 

S18- S39- U01- U22- X43- P41 

S23- T25- U06- U27- X44- P42 



W43- W44- W45- W46- W51 
S27- T08- T29- U10~ U31- P43 
S32- T13- T34- U15- U36- P44 



TYPE 533 UTILITY PANEL 



THIS PANEL WILL READ 



12 



IN COL 1 
A READ 
B READ 
C READ 



LOAD HUB CARDS 
OPEN FOR TEMPORARY WIRING 
REGIONAL INSTRUCTION CARDS 
FIVE-FIELD LOADER CARDS 



THIS PANEL WILL PUNCH 

A PUNCH 
B PUNCH 



C PUNCH 



OPEN FOR TEMPORARY WIRING 

MACHINE LANGUAGE TRACE 10TH WORD IS 88808 00000 
FLAIR TRACE 88808 08000 

LOAD HUB CARDS FROM PUNCH WORDS 1 TO 8 88808 88000 
FIVE-FIELD LOADER CARDS 



WIRING FOR THIS PANEL IS SHOWN ON A 533 BOARD DIAGRAM WHERE CONVENIENT. 
OTHER WIRING IS LISTED BELOW BY TERMINALS ACCORDING TO THE DIAGRAM INDEX, 



Z33- RIO 
Z34- L21 
Z35- X14 
Z36- Y08 
Z37- 202 
Z38- Z16 



Z39-AA10 
Z40- A33 
Z21-AC10 
H42- W42 
K42- V42 
AM43- X47 



W59-AL45 

W60- Q50 

W61-AL46 

AM44- Q45 

AM45- Q49 

AM46- Q51 



Y35- U05-AE07 
Y36-AB05-AF07 



Y37-AB10-AG07 
Y38-AB15-AH07 



AC03-AC08-AC13-AC18-AD21 
W21-AE01-AF01-AG01-AH01-AJ01 

AN13- K07- K08- K09- L07- L08 
V31- K18- K19- K.20- K21- L20 
V30- L14- L15- L16- K10- L10 



AK44- L42 
AK.45- M41 
AK46-AD60 
AP59- D43 
AP61- R30 
AQ61- S38 

Y39-AB20-AI07 
S41-AP60-AR61 



S28- R41 

AA21-AC15 

AN14- L09 

AL44- W55 

Y33- L06 

X21- V05 



S23- X35 
D22- X40 



T42-AB60- N41 
V41- W41-AR55-AR60 



W31- Y34- L17- L18- L19 
W30- Y04-AC04-AC09-AC14-AC19 
V21- V02-AC02-AC07-AC12-AC17-AC20 
Y21-AE02-AF02-AG02-AH02-AJ02-AC05 



CORRECT TYPE 533 PANEL SO WORD 5 OF B READ HAS A WORD LENGTH OF 2 • 
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FLAIR - FLOATING ABSTRACT INTERPRETATIVE ROUTINE 

ONLY A BRIEF SUMMARY OF THIS SYSTEM IS SIVEN HERE. IT IS INTENDED TO SHOW 
DEVIATIONS FROM THE ORIGINAL SYSTEM AS PUBLISHED ELSEWHERE. A LISTING OF 
THE INSTRUCTIONS AND CONSTANTS IS FURNISHED TOGETHER WITH ENOUGH DESCRIP- 
TIVE MATERIAL TO OPERATE THE SYSTEM WITHOUT GOING INTO SPECIFIC DETAIL. 
DETAILED BREAKDOWNS OF THE INDIVIDUAL ROUTINES ARE AVAILABLE IN THIS SAME 
FORMAT FOR THOSE INTERESTED OR HAVING A NEED TO ALTER. ADDRESS A REQUEST 
TO THE MATHEMATICAL ANALYSIS SECTION - MISSILE SYSTEMS DIVISION LOCKHEED 
AIRCRAFT CORPORATION - 7701 WCODLEY AVENUE - VAN NUYS CALIFORNIA. 

FLAIR IS A PSEUDO-THREE-ADDRESS FLOATING POINT COMPUTING SYSTEM FOR USE 
ON THE TYPE 650. NUMBERS ARE OF THE FORM 

PP .XXXXXXXX WHERE PP IS 50 + THE ASSOCIATED POWER OF 10 
ARITHMETIC COMMANDS ARE OF THE FORM 

OP a j9 WHERE a AND ff ARE FOUR DIGIT ADDRESSES 
LOGICAL AND SUB-ROUTINE COMMANDS ARE OF THE FORM 

0> o WHERE a AND $ ARE FOUR DIGIT ADDRESSES 

THE y IN THE ARITHMETIC COMMANDS REPRESENTS THE UNITS DIGIT OF THE 10 
RESULT STORAGES 0000 TO 0009. THESE ADDRESSES ARE A PART OF FLAIR AND 
MAY BE USED ONLY FOR THIS TEMPORARY PURPOSE. THE BLOCK TRANSFER COMMAND 
87 FREES THEM FOR FURTHER USE. 

THE FLAIR SYSTEM IS UNDER THE CONTROL OF THE WORD IN 1615. THE D PART 
OF THIS WORD IS THE ADDRESS OF THE FLAIR COMMAND TO BE OBEYED. COMMANDS 
ARE OBEYED IN SEQUENTIAL ORDER EXCEPT AFTER TRANSFER COMMANDS. ENTER FLAIR 
BY RESET ADDING A WORD 17 J 1735 TO 8003 AMD OBEYING 8003. J IS THE 
ADDRESS OF THE FIRST FLAIR COMMAND TO BE OBEYED. 

THE ENTIRE SYSTEM OCCUPIES THE ADDRESSES FROM 1300 TO 1999. THE ARITH- 
METIC PORTION PLUS SQUARE ROOT AND ABSOLUTE VALUE OCCUPY THE ADDRESSES 
FROM 1600 TO 1999 AND MAY BE USED IN THIS ABBREVIATED FORM. IF LESS THAN 
THE FULL COMPLEMENT OF SUBROUTINES IS NEEDED - USE ARITHMETIC FLAIR PLUS 
GROUPS OF STORAGES AS INDICATED. 

LOG 1500 - 1599 

ANTILOG 1450 - 1599 

SINE AND COSINE 1350 - 1449 

ARCTANGENT 1300 - 1499 

TRACING IS UNDER THE CONTROL OF THE CONSOLE. SETTING THE HUNDREDS SWITCH 
OF 8000D TO AN 8 CAUSES TRACING. A 9 IN THIS POSITION CAUSES THE TRAC- 
ING TO BE IGNORED AND FLAIR WILL RUN NORMALLY. THE MACHINE WILL STOP IF 
A DIGIT OTHER THAN AN 8 OR 9 IS INADVERTENTLY SET IN THIS SWITCH. IF 
THE PROGRAM IS IN FLAIR IT MAY BE RESTARTED BY 

1. DEPRESSING PROGRAM RESET BUTTON 

2. SETTING THE SWITCH PROPERLY 

3. TRANSFER TO 1735 FOR NEXT COMMAND 
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FLAIR — CONTINUED 

FLAIR OPERATION SUMMARY - LOGICAL COMMANDS 

00 - 06 NO OPERATION. THE NEXT COMMAND OBEYED IS IN jS 

01 MACHINE STOP* IF PROGRAM START BUTTON IS 
DEPRESSED THE NEXT COMMAND OBEYED IS IN $ 

02 NO OPERATION, NEXT SEQUENTIAL COMMAND IS OBEYED. 

03 CONDITIONAL TRANSFER ON THE SIGN OF THE CONTENTS OF a 
THE NEXT COMMAND OBEYED IS IN IF THE SIGN IS - 
THE NEXT COMMAND OBEYED IS SEQUENTIAL IF THE SIGN IS + 

04 CONDITIONAL TRANSFER ON RELATIVE ZERO - SEE DETAILED ITEM. 

05 UNCONDITIONAL TRANSFER OUT OF FLAIR. THE NEXT COMMAND 
OBEYED IS THE MACHINE LANGUAGE COMMAND IN o . IF THE 
RETURN TO FLAIR IS AT 1612 THE NEXT FLAIR COMMAND IS 
SEQUENTIAL TO THE 05 COMMAND. IF THE RETURN IS AT 1792 
IT IS FOUND IN OF THE 05 COMMAND. 

07 TO 09 NO OPERATION. MACHINE STOP - THEN SEQUENTIAL COMMAND. 
FLAIR OPERATION SUMMARY - ARITHMETIC COMMANDS 



17 

2? 
37 
47 
57 
67 
77 
87 



(°0 
fa+IO 



(y) 
<*s 

(0) 
(ft 
(ft 



(y) 
(0) 



(0+K) 



7 
7 
7 
7 
7 
7 
7 



K MAY VARY FROM TO 7 



FLAIR OPERATION SUMMARY - SUBROUTINE COMMANDS 



SIN (<x\ — 
COS (<x\ : — 
ARCTAN (<x\ 
LOG (a) — 



ARGUMENT IN RADIANS 
ARGUMENT IN RADIANS 



90 
91 
92 
93 
94 
95 
96 
97 TO 99 NO OPERATION. NEXT SEQUENTIAL COMMAND IS OBEYED. 



ANT I LOG (ft) 
\<ft\ 



■*- 

-*- 

-»- 

■*- 

•*- 

■*► 

-*- 



MACHINE STOPS 

9000 
9001 
9004 
9005 



SQUARE ROOT OF A NEGATIVE NUMBER 

SINE OR COSINE OF AN ANGLE GREATER THAN 100 RADIANS 

LOG OF ZERO OR A NEGATIVE NUMBER 

POWER OF 10 INDEX OUT OF RANGE 
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FLAIR 



1300 


66 


1416 


1374 


1350 


00 


8334 


4000 


1400 


46 


1403 


1362 


1301 


46 


1304 


1401 


1351 


46 


1365 


1358 


1401 


66 


1861 


1843 


1302 


20 


1867 


1322 


1352 


22 


1805 


1408 


1402 


20 


1861 


1414 


1303 


30 


0000 


1328 


1353 


60 


1836 


1391 


1403 


66 


8002 


1362 


1304 


15 


1357 


1361 


1354 


00 


0000 


0007 


1404 


10 


1407 


1412 


1305 


10 


1308 


1316 


1355 


61 


8003 


1363 


1405 


65 


1836 


1368 


1306 


22 


1909 


1312 


1356 


46 


1410 


1411 


1406 


19 


1409 


1380 


1307 


65 


1867 


1475 


1357 


00 


0000 


0003 


1407 


16 


6666 


8080 


1308 


99 


9999 


3329 


1358 


65 


1417 


1843 


1408 


66 


1861 


1415 


1309 


19 


1313 


1341 


1359 


46 


1365 


1401 


1409 


40 


0000 


0000 


1310 


60 


8003 


1486 


1360 


61 


1890 


1377 


1410 


11 


1744 


1974 


1311 


11 


1890 


1419 


1361 


46 


1366 


1339 


1411 


10 


1744 


1974 


1312 


61 


1876 


1909 


1362 


16 


1416 


1422 


1412 


60 


8003 


1372 


1313 


00 


4054 


0580- 


1363 


19 


1875 


1404 


1413 


16 


1416 


1371 


1314 


64 


1876 


1320 


1364 


24 


1867 


1420 


1414 


67 


8002 


1423 


1315 


35 


0002 


1321 


1365 


15 


8001 


1373 


1415 


35 


0002 


1421 


1316 


60 


8003 


1333 


1366 


15 


1369 


1323 


1416 


15 


7079 


6327 


1317 


10 


1324 


1484 


1367 


10 


1325 


1334 


1417 


51 


1000 


0000 


1318 


10 


1326 


1336 


1368 


45 


1446 


1843 


1418 


10 


8001 


1376 


1319 


10 


1476 


1386 


1369 


00 


0000 


0001 


1419 


60 


8003 


1377 


1320 


20 


1876 


1331 


1370 


46 


1835 


9001 


1420 


21 


1875 


1378 


1321 


20 


1876 


1329 


1371 


14 


1424 


1434 


1421 


65 


8002 


1379 


1322 


61 


1375 


1314 


1372 


19 


1875 


1426 


1422 


67 


8002 


1381 


1323 


20 


1835 


1338 


1373 


35 


0004 


1385 


1423 


35 


0002 


1429 


1324 


33 


3298 


5605- 


1374 


20 


1890 


1307 


1424 


62 


8318 


5307 


1325 


19 


9465 


3599 


1375 


09 


9999 


9999 


1425 


35 


0001 


1382 


1326 


13 


9085 


3351- 


1376 


60 


8003 


1384 


1426 


60 


8003 


1433 


1327 


10 


1330 


1335 


1377 


36 


0000 


1390 


1427 


67 


8003 


1388 


1328 


21 


1836 


1340 


1378 


.10 


8003 


1435 


1428 


67 


8003 


1443 


1329 


68 


8003 


1337 


1379 


35 


0002 


1805 


1429 


60 


8003 


1432 


1330 


05 


5909 


8861- 


1380 


10 


1383 


1387 


1430 


24 


1835 


1439 


1331 


46 


1485 


1300 


1381 


24 


1836 


1389 


1431 


24 


1835 


1438 


1332 


67 


1835 


1339 


1382 


60 


8003 


1440 


1432 


11 


1437 


1370 


1333 


19 


1836 


1349 


1383 


30 


0000 


0000 


1433 


19 


1867 


1418 


1334 


60 


8003 


1342 


1384 


19 


8001 


1436 


1434 


67 


8003 


1392 


1335 


60 


8003 


1345 


1385 


69 


1899 


1352 


1435 


31 


0004 


1447 


1336 


60 


8003 


1343 


1336 


60 


8003 


1494 


1436 


24 


1890 


1397 


1337 


21 


1890 


1393 


1387 


60 


8003 


1398 


1437 


00 


0000 


0053 


1338 


15 


1396 


1302 


1388 


16 


1354 


1359 


1438 


69 


1441 


1445 


1339 


35 


0004 


1399 


1389 


16 


1444 


1449 


1439 


69 


1442 


1445 


1340 


60 


8003 


1347 


1390 


20 


1893 


1448 


1440 


19 


8001 


1364 


1341 


10 


1348 


1310 


1391 


19 


1394 


1425 


1441 


31 


0000 


1371 


1342 


19 


1899 


1317 


1392 


16 


1395 


1400 


1442 


31 


0000 


1413 


1343 


19 


1899 


1367 


1393 


15 


1346 


1301 


1443 


16 


1396 


1351 


1344 


21 


1899 


1452 


1394 


33 


3333 


3333 


1444 


00 


0300 


0000 


1345 


19 


1899 


1319 


1395 


31 


4159 


2654 


1445 


24 


1899 


1402 


1346 


00 


0000 


0047 


1396 


00 


0000 


0008 


1446 


60 


3002 


1377 


1347 


19 


8001 


1344 


1397 


60 


8003 


1406 


1447 


11 


1350 


1355 


1348 


02 


1861 


2288 


1398 


19 


1890 


1419 


1448 


65 


8003 


1356 


1349 


30 


0001 


1311 


1399 


69 


1303 


1306 


1449 


46 


1405 


1353 
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FLAIR (Con't.) 



1450 


00 


7300 


0000 


1500 


07 


9432 


8234 


1550 


52 


4900 


0000 


1451 


46 


1554 


1459 


1501 


08 


1283 


0516 


1551 


60 


8003 


1558 


1452 


60 


8003 


1309 


1502 


08 


3176 


3771 


1552 


64 


8001 


1496 


1453 


10 


1856 


1948 


1503 


08 


5113 


8038 


1553 


10 


1456 


147 


1454 


19 


1836 


1474 


1504 


08 


7096 


3589 


1554 


16 


1463 


1467 


1455 


60 


8003 


1873 


1505 


08 


9125 


0938 


1555 


20 


1861 


1564 


1455 


11 


5129 


2770 


1506 


09 


1201 


0839 


1556 


84 


1500 


1577 


1457 


16 


1714 


1469 


1507 


09 


3325 


4300 


1557 


46 


1561 


1525 


1458 


35 


0001 


1465 


1508 


09 


5499 


2586 


1558 


19 


1861 


1563 


1459 


15 


1462 


1467 


1509 


09 


7723 


7220 


1559 


67 


8003 


1457 


1460 


10 


1464 


1471 


1510 


10 


0000 


0000 


1560 


10 


1936 


1591 


1461 


10 


1466 


1472 


1511 


12 


5892 


5410 


1561 


15 


1567 


1523 


1462 


19 


1510 


1488 


1512 


15 


8489 


3190 


1562 


60 


8003 


1570 


1463 


19 


1510 


1498 


1513 


19 


9526 


2310 


1563 


21 


1867 


1521 


1464 


06 


6273 


1000 


1514 


25 


1188 


6430 


1564 


30 


0001 


1571 


1465 


16 


8002 


1524 


1515 


31 


6227 


7660 


1565 


69 


1568 


1522 


1466 


02 


5439 


0000 


1516 


39 


8107 


1700 


1566 


64 


8002 


1555 


1467 


20 


1873 


1526 


1517 


50 


1187 


2330 


1567 


09 


3900 


0000 


1468 


65 


8003 


1477 


1518 


63 


0957 


3440 


1568 


64 


0000 


1560 


1469 


35 


0004 


1529 


1519 


79 


4328 


2340 


1569 


65 


8003 


1576 


1470 


60 


8003 


1528 


1520 


99 


9999 


9990 


1570 


19 


1573 


1551 


1471 


60 


8003 


1479 


1521 


60 


1875 


1575 


1571 


60 


8002 


1579 


1472 


60 


8003 


1480 


1522 


22 


1875 


8001 


1572 


60 


8002 


1581 


1473 


19 


8001 


1495 


1523 


46 


1534 


1527 


1573 


02 


8952 


9655 


1474 


60 


8003 


1482 


1524 


30 


0005 


1487 


1574 


60 


8002 


1533 


1475 


46 


1360 


1332 


1525 


66 


1835 


1542 


1575 


30 


0001 


1531 


1476 


09 


6420 


0441 


1526 


67 


8003 


1481 


1576 


46 


1584 


1590 


1477 


10 


1586 


1592 


1527 


66 


1835 


1540 


1577 


69 


1530 


1583 


1478 


10 


1936 


1492 


1528 


19 


1836 


1478 


1578 


11 


1744 


1548 


1479 


19 


1836 


1553 


1529 


46 


1483 


1532 


1579 


15 


1582 


1588 


1480 


19 


1836 


1460 


1530 


64 


0000 


1572 


1580 


35 


0002 


1587 


1481 


20 


1836 


1490 


1531 


10 


1836 


1541 


1581 


30 


0001 


1537 


1482 


19 


1836 


1461 


1532 


69 


1535 


1489 


1582 


30 


0000 


0000 


1483 


69 


1536 


1489 


1533 


44 


1538 


1843 


1583 


22 


1836 


1543 


1484 


60 


8003 


1990 


1534 


16 


8002 


1491 


1584 


11 


1593 


1974 


1485 


65 


1416 


1374 


1535 


35 


0000 


1491 


1585 


11 


1893 


1589 


1486 


19 


1899 


1327 


1536 


31 


0000 


1491 


1586 


01 


0000 


0000 


1487 


10 


8001 


1545 


1537 


84 


1500 


1565 


1587 


21 


1893 


1596 


1488 


65 


8003 


1496 


1538 


36 


0000 


1598 


1588 


19 


1861 


1562 


1489 


22 


1893 


1546 


1539 


67 


8002 


1547 


1589 


30 


0002 


1595 


1490 


60 


1493 


1497 


1540 


35 


0002 


1549 


1590 


10 


1593 


1974 


1491 


10 


1744 


1499 


1541 


11 


1594 


1599 


1591 


11 


8002 


1597 


1492 


60 


8003 


1473 


1542 


46 


1544 


9005 


1592 


16 


8002 


1552 


1493 


00 


1750 


0000 


1543 


30 


0001 


8001 


1593 


00 


0000 


0052 


1494 


19 


1899 


1318 


1544 


16 


8002 


1843 


1594 


70 


6171 


172 8 


1495 


35 


0001 


1455 


1545 


30 


0001 


1451 


1595 


16 


1867 


1574 


1496 


35 


0001 


1453 


1546 


65 


1805 


1893 


1596 


61 


8002 


1556 


1497 


15 


1450 


1454 


1547 


16 


1550 


1557 


1597 


15 


1510 


1566 


1498 


35 


0001 


1468 


1548 


65 


8002 


1458 


1598 


20 


1893 


1569 


1499 


21 


1856 


1578 


1549 


20 


1805 


1559 


1599 


30 


0005 


1585 
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FLAIR (Con't.) 







1600 


61 


8001 


1608 


1650 


65 


0000 


1659 


1700 


69 


1753 


1707 


1601 


36 


0000 


1622 


1651 


15 


1708 


1664 


1701 


69 


1704 


1707 


1602 


60 


8002 


1761 


1652 


65 


0000 


1665 


1702 


35 


0003 


1812 


1603 


11 


8003 


1611 


1653 


15 


1656 


1662 


1703 


35 


0001 


1810 


1604 


60 


8003 


1761 


1654 


35 


0003 


1663 


1704 


65 


0000 


1621 


1605 


44 


1609 


1610 


1655 


30 


0004 


1732 


1705 


46 


1738 


1710 


1606 


20 


1861 


1867 


1656 


65 


0000 


1689 


1706 


20 


1867 


1870 


1607 


11 


1861 


1616 


1657 


11 


1861 


1628 


1707 


35 


0003 


1716 


1608 


10 


1861 


1666 


1658 


10 


1861 


1627 


1708 


65 


0000 


1667 


1609 


10 


1613 


8003 


1659 


35 


0002 


1715 


1709 


46 


1762 


1763 


1610 


60 


8001 


8001 


1660 


35 


0002 


1668 


1710 


65 


1869 


1873 


1611 


24 


1615 


1618 


1661 


35 


0002 


1669 


1711 


18 


1714 


1719 


1612 


60 


1615 


8001 


1662 


22 


1867 


1720 


1712 


69 


1865 


1768 


1613 


30 


0002 


1672 


1663 


22 


1867 


1672 


1713 


69 


1766 


1770 


1614 


66 


0000 


1923 


1664 


22 


1867 


1670 


1714 


00 


0000 


0050 


1615 


17 


0000 


1735 


1665 


35 


0002 


1671 


1715 


20 


1869 


1722 


1616 


11 


1619 


1623 


1666 


10 


1619 


1623 


1716 


22 


1870 


1626 


1617 


35 


0004 


1732 


1667 


35 


0002 


1724 


1717 


60 


1890 


1796 


1618 


35 


0001 


1625 


1668 


15 


1721 


1682 


1718 


10 


1836 


1631 


1619 


00 


0000 


0010 


1669 


15 


1723 


1682 


1719 


17 


1878 


1833 


1620 


11 


8003 


1728 


1670 


16 


8001 


1827 


1720 


16 


8001 


1877 


1621 


35 


0002 


1777 


1671 


20 


1875 


1779 


1721 


65 


0000 


1725 


1622 


21 


1876 


1632 


1672 


69 


1780 


1783 


1722 


67 


8003 


1782 


1623 


15 


1876 


1631 


1673 


69 


1615 


1787 


1723 


65 


0000 


1667 


1624 


71 


1877 


1824 


1674 


00 


0000 


1612 


1724 


21 


1878 


1685 


1625 


44 


1629 


1630 


1675 


69 


1778 


1781 


1725 


35 


0002 


1731 


1626 


69 


1729 


1783 


1676 


11 


8003 


1786 


1726 


16 


1879 


1734 


1627 


46 


1634 


1631 


1677 


16 


1834 


8002 


1727 


64 


1881 


1602 


1628 


46 


1631 


1634 


1678 


00 


0000 


1792 


1728 


30 


0002 


1635 


1629 


10 


1633 


8003 


1679 


00 


0000 


1643 


1729 


65 


0000 


1641 


1630 


35 


0003 


1839 


1680 


00 


0000 


1643 


1730 


65 


0000 


1689 


1631 


30 


0002 


1637 


1681 


00 


0000 


1643 


1731 


21 


1836 


1739 


1632 


69 


1687 


1640 


1682 


69 


1636 


1740 


1732 


69 


1636 


1790 


1633 


11 


8003 


1694 


1683 


35 


0004 


1644 


1733 


35 


0004 


1693 


1634 


60 


1687 


1843 


1684 


68 


8003 


1691 


1734 


46 


1737 


1742 


1635 


22 


1897 


1617 


1685 


20 


1890 


1897 


1735 


69 


8000 


1891 


1636 


20 


0000 


1612 


1686 


16 


1692 


1755 


1736 


65 


1885 


1855 


1637 


44 


1643 


1843 


1687 


00 


0000 


0000 


1737 


60 


1890 


1795 


1638 


01 


0000 


1612 


1688 


18 


1642 


1798 


1738 


65 


1893 


1718 


1639 


22 


1895 


1648 


1689 


35 


0002 


1745 


1739 


20 


1893 


1748 


1640 


23 


1893 


1746 


1690 


15 


1893 


1647 


1740 


22 


1843 


8002 


1641 


35 


0002 


1747 


1691 


17 


1744 


1799 


1741 


35 


0004 


1801 


1642 


00 


0000 


0050 


1692 


00 


0008 


0000 


1742 


65 


1805 


1760 


1643 


69 


1615 


1638 


1693 


22 


1897 


1752 


1743 


45 


1792 


1612 


1644 


22 


1897 


1750 


1694 


22 


1897 


1655 


1744 


00 


0000 


0051 


1645 


46 


1848 


1849 


1695 


30 


0001 


1651 


1745 


20 


1899 


1754 


1646 


10 


1649 


1603 


1696 


30 


0001 


1653 


1746 


46 


1749 


1600 


1647 


44 


1601 


1602 


1697 


69 


1650 


1654 


1747 


21 


1853 


1706 


1648 


30 


0002 


1605 


1698 


69 


1751 


1654 


1748 


67 


8003 


1606 


1649 


00 


0001 


0000 


1699 


69 


1652 


1707 


1749 


60 


8001 


1607 
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FLAIR (Con't.) 



D 



1750 


65 


8003 


1660 


1800 


10 


1756 


1967 


1850 


69 


1892 


1854 


1751 


66 


0000 


1659 


1801 


20 


1805 


1758 


1851 


20 


1805 


1709 


1752 


65 


8003 


1661 


1802 


15 


1805 


1809 


1852 


22 


1856 


1859 


1753 


66 


0000 


1665 


1803 


10 


1856 


1811 


1853 


00 


0000 


0000 


1754 


67 


8003 


1711 


1804 


22 


1837 


1806 


1854 


22 


1892 


1736 


1755 


46 


1710 


1759 


1805 


00 


0000 


0000 


1855 


10 


1880 


1646 


1756 


00 


0000 


0025 


1806 


30 


0008 


1850 


1856 


00 


0000 


0000 


1757 


20 


1861 


1764 


1807 


20 


1861 


1814 


1857 


20 


1861 


1717 


1758 


46 


1712 


1713 


1808 


11 


8003 


1816 


1858 


44 


1612 


1832 


1759 


60 


1867 


1821 


1809 


46 


1612 


1813 


1859 


30 


0004 


1872 


1760 


30 


0004 


1773 


1810 


10 


1614 


1620 


1860 








1761 


45 


1864 


1843 


1811 


16 


8002 


1819 


1861 


00 


0000 


0000 


1762 


69 


1865 


1868 


1812 


69 


1815 


1818 


1862 


24 


1884 


1837 


1763 


69 


1766 


1820 


1813 


65 


8001 


1871 


1863 


69 


1885 


1817 


1764 


60 


1867 


1772 


1814 


60 


1867 


1771 


1864 


36 


0000 


1838 


1765 


65 


8003 


1873 


1815 


24 


0000 


1769 


1865 


30 


0000 


1690 


1766 


35 


0000 


1690 


1816 


35 


0003 


1874 


1866 








1767 








1817 


24 


1881 


1624 


1867 


00 


0000 


0000 


1768 


22 


1873 


1776 


1818 


22 


1881 


1784 


1868 


22 


1873 


1785 


1769 


11 


1873 


1828 


1819 


24 


1873 


1826 


1869 


00 


0000 


0000 


1770 


22 


1873 


1726 


1820 


22 


1873 


1686 


1870 


00 


0000 


0000 


1771 


30 


0001 


1727 


1821 


10 


1774 


8003 


1871 


30 


0004 


1831 


1772 


19 


1875 


1604 


1822 


46 


1612 


1792 


1872 


15 


8001 


1830 


1773 


17 


1836 


1857 


1823 


20 


1885 


1841 


1873 


00 


0000 


0000 


1774 


00 


0000 


0184 


1824 


21 


1880 


1823 


1874 


69 


1837 


1804 


1775 


24 


1882 


1846 


1825 


24 


1883 


1863 


1875 


00 


0000 


0000 


1776 


15 


1829 


1933 


1826 


15 


1881 


8003 


1876 


00 


0000 


0000 


1777 


20 


1881 


1684 


1827 


69 


1730 


1683 


1877 


69 


1780 


1733 


1778 


65 


0000 


1789 


1828 


46 


1832 


1858 


1878 


00 


0000 


0000 


1779 


67 


8003 


1688 


1829 


00 


0007 


0000 


1879 


00 


0008 


0000 


1780 


65 


0000 


1725 


1830 


22 


1835 


1888 


1880 


00 


0000 


0000 


1781 


22 


1835 


8001 


1831 


17 


1836 


1743 


1881 


00 


0000 


0000 


1782 


18 


1836 


1791 


1832 


10 


1835 


1840 


1882 


00 


0000 


0000 


1783 


30 


0004 


1694 


1833 


18 


1836 


1741 


1883 


00 


0000 


0000 


1784 


30 


0004 


1845 


1834 


32 


0000 


0000 


1884 


00 


0000 


0000 


1785 


15 


1788 


1705 


1835 


00 


0000 


0000 


1885 


00 


0000 


0000 


1786 


22 


1890 


1794 


1836 


00 


0000 


0000 


1886 


88 


8080 


8000 


1787 


01 


0000 


1792 


1837 


69 


0000 


1825 


1887 








1788 


00 


0007 


0000 


1838 


15 


8003 


1645 


1888 


65 


8001 


1896 


1789 


46 


1792 


1612 


1839 


22 


1895 


1648 


1889 








1790 


22 


1843 


1897 


1840 


15 


1793 


8003 


1890 


00 


0000 


0000 


1791 


35 


0004 


1851 


1841 


69 


1844 


1847 


1891 


97 


1892 


1646 


1792 


60 


1895 


8001 


1842 








1892 


69 


0000 


1862 


1793 


00 


0001 


0000 


1843 


00 


0000 


0000 


1893 


00 


0000 


0000 


1794 


65 


8001 


1802 


1844 


69 


0000 


177 5 


1894 








1795 


19 


1899 


1765 


1845 


69 


1898 


1852 


1895 


00 


0000 


0000 


1796 


19 


1899 


1604 


1846 


35 


0001 


1808 


1896 


16 


1649 


1803 


1797 








1847 


22 


1853 


8001 


1897 


00 


0000 


0000 


1798 


17 


1853 


1757 


1848 


11 


8002 


1657 


1898 


69 


0000 


8002 


1799 


17 


1853 


1807 


1849 


11 


8002 


1658 


1899 


00 


0000 


0000 
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FLAIR (Con't.) 



A 





D 


I 


A 





D 


I 


1900 


15 


1856 


1922 


1950 


24 


1856 


1968 


1901 








1951 








1902 








1952 








1903 








1953 








1904 








1954 








1905 








1955 








1906 








1956 








1907 


10 


8001 


1965 


1957 








1908 


35 


0001 


1966 


1958 








1909 








1959 




■ 




1910 








1960 








1911 


90 


1999 


9999 


1961 


15 


1964 


1969 


1912 


90 


2999 


9999 


1962 


11 


8001 


1920 


1913 


90 


4999 


9999 


1963 


69 


8002 


1971 


1914 


90 


9999 


9999 


1964 


90 


0000 


0000 


1915 


91 


9999 


9999 


1965 


10 


8001 


1973 


1916 


93 


9999 


9999 


1966 


44 


1978 


1970 


1917 


95 


9999 


9999 


1967 


16 


8002 


1976 


1918 


97 


9999 


9999 


1968 


65 


8003 


1934 


1919 


99 


9999 


9999 


1969 


16 


8002 


1996 


1920 


15 


8001 


1983 


1970 


30 


0001 


1978 


1921 


16 


8002 


1935 


1971 


30 


0006 


1985 


1922 


15 


1744 


1949 


1972 


35 


0003 


1992 


1923 


45 


1977 


1843 


1973 


10 


8001 


1981 


1924 


69 


1427 


1430 


1974 


11 


1893 


1948 


1925 


69 


1428 


1431 


1975 


15 


1979 


8002 


1926 


20 


1861 


1315 


1976 


19 


8001 


1986 


1927 


46 


1580 


9004 


1977 


46 


1980 


9000 


1928 


20 


1835 


1539 


1978 


66 


8002 


1989 


1929 


67 


8002 


1843 


1979 


60 


0026 


1998 


1930 


00 


0000 


1612 


1980 


35 


0002 


1987 


1931 


00 


0000 


1612 


1981 


30 


0001 


1988 


1932 


00 


0000 


1612 


1982 








1933 


46 


1738 


1737 


1983 


35 


0004 


1993 


1934 


10 


1899 


1921 


1984 


65 


8003 


1991 


1935 


30 


0001 


1946 


1985 


64 


8001 


1972 


1936 


10 


0000 


0000 


1986 


10 


8001 


1994 


1937 


00 


0040 


0610 


1987 


11 


1744 


1999 


1938 


00 


0030 


0830 


1988 


21 


1893 


1997 


1939 


00 


0025 


0980 


1989 


30 


0001 


1995 


1940 


00 


0020 


1210 


1990 


19 


1899 


1305 


1941 


00 


0013 


1890 


1991 


10 


1899 


1963 


1942 


00 


0010 


2420 


1992 


15 


8001 


1800 


1943 


00 


0007 


3530 


1993 


19 


1899 


1984 


1944 


00 


0006 


4150 


1994 


16 


8002 


1950 


1945 


00 


0005 


5000 


1995 


20 


1899 


1961 


1946 


64 


8001 


1900 


1996 


84 


1900 


1975 


1947 


15 


1936 


1974 


1997 


11 


8001 


1908 


1948 


30 


0002 


1843 


1998 


22 


1805 


1962 


1949 


44 


1947 


1974 


1999 


10 


8003 


1907 
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A SELECTIVE AUTOMONITORING TRACING ROUTINE CALLED SAM 



A. R. Mandelin and K. D. Weaver 
Chance Vought Aircraft, Incorporated 

RESUME 

In order to reduce substantially the elapsed time and high cost of 
checking out programs, a routine has been developed at Chance Vought Aircraft 
which will automatically simulate manual check out procedures on the IBM 650. 
This routine, which we call SAM (Selective Automonitoring Routine), uses a 
control table furnished by the programmer to auto-interpret specified single 
instructions and sequences of instructions of a program executed by the 650 . 
For each instruction monitored SAM punches out on a card the location of the 
instruction, the instruction itself, and other items of information depending 
on the instruction, such as the contents of the accumulator and distributor. 

SAM has the following features: 

a. It will monitor one or more instructions a specified number of 
times in accordance with console settings or information in a 
prestored table. Thus if a program loops many times, a 
sequence of instructions in the loop may be monitored only once, 
or twice, or as many times as desired. 

b. Between monitored sequences, control is returned to the routine 
being checked out, so that the instructions are executed at 
normal speed. Execution of the program is slowed only for those 
instructions which are monitored. 

c. SAM will automatically cease to monitor for closed subroutines 
which are entered by a negative load distributor instruction. 
The subroutine is executed at normal machine speed. 

There are two versions of SAM, i.e., SAM-I and SAM-II. SAM-I will monitor 
routines coded entirely in 65O machine language. SAM-II will monitor routines 
coded in both machine language and the 2 and 8 interpretive system described in 
IBM Technical Newsletter No. 8. SAM-I requires 221 storage locations exclusive 
of the control table and SAM-II requires 291. 



SAM CONTROL TABLES 

A SAM control table is a series of words prestored sequentially in memory. 

650 Word 



Location 


1 

2E 


DA 


1 

IA 


T l 


n i 


F l 


L l 


T 2 


N 2 


F 2 


L 2 


• 


* 


• 


• 


• 


• 


• 


• 


• 


• 


. 


• 


T n 


N n 


F n 


L n 


T n + 1 


00 


0000 


0000 
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Each word in the table specifies a sequence of instructions to he monitored. 
The location of each first instruction is an F and that of each last 
instruction an L. If only one instruction is to be monitored then L = F. 
The number of times the sequence is to be monitored is specified by N. The 
specified ranges must he in operational sequence and a sequence to be 
monitored N times must be monitored N times before the next specified 
sequence can be monitored. The control table is loaded from a deck of control 
table cards which have one entry per card. As the routine is checked out on 
successive runs, cards may be removed from or added to the control table deck. 
If a sequence is to be monitored first six times and then only once, two cards 
with N = 5 and N = 1 may be used, or an N = 6 card may be replaced with 
an N = 1 card. Monitoring may also be controlled from the 65O console either 
without a loaded control table or in conjunction with a control table. 

PRINCIPLE OF OPERATION 

To check out a coded program, the routine to be checked, the 2 and 8 
interpretive routine if required, the control table, and SAM are loaded into 
memory. The machine is instructed to begin in SAM and the following occurs: 

a. The instruction at location F, is temporarily removed and 
a SAM instruction is put in its place. 



b. The address L, is planted In 



SAM. 



c. Control is then passed to the location of the first instruction 
of the routine being checked. If this instruction is not at 
location F, itself, execution of the routine begins at 

normal machine speed and proceeds without monitoring. 

d. The first time the program being checked reaches the location 
F, SAM is re-entered and the original instruction at F, is 

replaced. 

e. Monitoring is then started at location F]_. 

f . Monitoring ceases when location L, is reached. 

g. After the execution of the instruction at L, arrangements 

are made for monitoring the next sequence in the same manner 
as in (a) and (b) above. 

h. Control is returned to the instruction in the routine which 
follows L-,. 

i. The routine is executed at normal machine speed without 

monitoring until the end of the program or until an instruction 
at location F~ is reached. 
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The restrictions to be observed in the use of SAM are for the most part 
obvious consequences of the principles of its operation. Once monitoring 
begins with an instruction located at F it will continue until L is 
reached. Thus there must not be a branch out of the sequence. There should 
be no load card instruction although there may be normal non-branch read 
card instructions. Also between the execution of an instruction at 



and the arrival at 



F. n there must be no modification of the instruction 
i+1 



located at F. . Monitored sequences must be separated by at least one 

unmonitored instruction. F and L instructions may not be interpretive 
instructions. On instructions having the operation code 1^ (i.e., divide 
with remainder) the accumulator will be reset on the following two operations 
with the results of the division. No arithmetic operation should occur for 
two instructions and no reset operation for one. 



FORMAT OF RESULTS 

For each instruction monitored, SAM-I punches out eight 10-digit words 
with sign over the units position as indicated on Slide 1. 



Word 1. 



Word 2. 



Address of instruction monitored. This is in the DA 
position for the first instruction of a monitored 
sequence or for a branch instruction. Otherwise, it 
is in the IA position. Other positions are zeros. 



The instruction itself. 

Word 3. Contents of upper accumulator after execution of the 
instruction. 

Word h. Contents of lower accumulator (after) . 

Word 5- Contents of distributor (after). 

Word 6. Zero. 

Zero. 



Word 7- 
Word 8. 



Identification word. This word contains the routine 
number, the table entry count number, loop count number, 
and card count number. 



For each interpretive instruction monitored, SAM-II punches out on a card 
eight 10-digit words with sign over the units position as follows: 



Word 1. 

Word 2. 

Word 3. 
Word h. 



Address of the interpretive instruction monitored. This 
will be in the DA position. Other positions zeros. 

The instruction itself or the first word of a two-word 
instruction. 

Zero or the second word of a two word instruction. 



Contents of A 
instruction. 



address before execution of the interpretive 
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Word 5. Contents of B address "before execution or zero if no B 
address . 

Word 6. Contents of the C address after execution of the 

instruction (for two-word interpretive instructions only.) 

Word 7. Contents of the floating point accumulator K after 
execution of an interpretive instruction. 

Word 8. Identification word. This word contains the routine 

number, the table entry count number, loop count number 
and card count number. 

For machine language instructions, SAM-II will monitor in the same manner as 
SAM-I. 



SUBROUTINES 

SAM will not slow down the check out of a routine with unnecessary 
monitoring of previously checked out subroutines. This is avoided by 
specifying that entry to a subroutine must be made by using a negative load 
distributor instruction, i.e., (-69 NI SR) where SR is the entry location of 
the subroutine and NI is the location of the next instruction in the main 
routine. Entry to the subroutine must be made from machine language and the 
negative load distributor instruction must not immediately follow a (negative) 
interpretive instruction. 

OPERATIONAL EXPERIENCE 

By monitoring single instructions a programmer can rapidly determine and 
narrow down regions of error. Having determined these, he can then examine 
his coding to find his mistakes. If he cannot locate the source of trouble, 
he can have SAM trace all instructions within the suspected region of error. 
With the proper preparation of the control tables the amount of check out 
time on the 65O for each check out run should usually be no more than 10 
minutes. The experience with the 65O at Chance Vought during the first month 
of operation (65O was installed May 27) showed that the check out period 
varied between 5 and 20 minutes with a 10 minute average. As the programmers 
have had to consider and plan their work more thoroughly than they would have 
had to using console monitoring, and as the information furnished by SAM was 
better both in quantity and quality, the total elapsed time on check out has 
been reduced to approximately 25$ of the time that would have been necessary 
using manual methods. At CVA we have planned our control panels so that in 
no case is it necessary for us to change our control panel in a check out of 
a problem in order to be able to use SAM. 
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EXAMPLE 1 

Slide 3 illustrates a simple hypothetical problem vith its check points 
and control table for the first check out run. R-. is the location of the 
first instruction of the routine, and F , F , and F key check point loca- 
tions. From R to F the routine is run unmonitored. At F 1 a single 
card is punched out with all needed information. From this point, the rou- 
tine is run unmonitored until F ? is reached. At F- the instruction is 
monitored. From F^ the routine proceeds unmonitored to point b where it 
branches to point a along path 1 and continues unmonitored to point F . 
The instruction at F 2 is monitored again. The above process is repeated, 
going to point b to point a via path 2, and continuing until location 
F^ is again reached. The third F p value is punched and the routine now 
proceeds unmonitored to point F,. F, is monitored and the routine continues 
unmonitored to out. 

The control table starts at location 1901, i (the i represents the regional 
SAM translation tag) and ends at 190^,i. The operation part of the first 
word is 01, the data address F and the instruction address L.. = F . The 
next two table values are fashioned in the same way except that the operation 
part of 1902, i is 03 in order to get the three check point values located at 
Fp. The last word in the table, which is all zeros, is a tag for SAM to indi- 
cate that no further monitoring is required after F_. 

EXAMPLE 2 

Slide k illustrates a problem wherein it is desired to monitor completely 
all instructions in the 15th loop. It should be noted immediately, that in our 
illustration, the instructions in the loops 1 through 15 are all the same, but 
are shown separate for purposes of illustration. The program starts at R.. . 
Then it proceeds through point a to point b where it branches around a loop 
ending at b fifteen times. After this, it proceeds through a series of in- 
structions to out. The fourteen loops preceding the fifteenth are counted off 
by taking a single instruction within the loop and monitoring it fourteen times . 
This is done by the first word in our control table which has 14 in the opera- 
tion part and F.. equal to L . The fifteenth loop, which is to be monitored 
completely, is then set up in the control table as the second word with 01 as 
the operation part. 
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SAM -II LISTING 

A listing of the instructions in the SAM-II routine is furnished. The 
routine is in absolute address form with regional tags to facilitate its 
translation or modification. Entry is at 1600 for control table operation 
and 1655 for console operation. For console operation set the storage entry 
switches to N F L . For control table operations the storage entry 
switches must~be~set~to~69 R 1600 where R is the location of the first 
instruction of the routine being checked. 
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SAM RESULT FORM 





WORD 1 


WORD 2 


WORD 3 


WORD k 


WORD 5 


WORD 6 


WORD 7 


WORD 8 


SAM I or SAM II 
Machine Language 
Instruction 


Location 


Instruc- 
tion 


Result 
in Upper 
Ac cum. 


Result 
Ln Lover 
Hccum. 


Result 
in Dis- 
tributor 


Zero 


Zero 


Identi- 
fication 


SAM II 

Interpretive 

Instruction 


Location 


Instruc- 
tion 


Zero or C 
Instruc- 
tion 


A Result 


Zero or 

B 
Result 


Zero or 

C 
Result 


Value in 

K 
Register 


Identi- 
fication 



SAM CONTROL TABLE 



LOC. 


OP 


DA 


NI 


T l 


N l 


F l 


L l 


T 2 


N 2 


F 2 


L 2 


• 
* 
9 


T 
n 


N 
n 


F 
n 


L 

n 


n+1 


00 


0000 


0000 



SLIDE 1 
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SLIDE 2 





SAM SAMPLE WITH TABLE CONTROL 
For First Check Out Run 



F L" L 1 



F 2 »L 2 



F 3= L 5 



LOC 


OP 


D.A. 


I .A. 


1901, i 


01 


F l 


L i 


1902,1 


03 


F 2 


L a 


1903, i 


01 


F 3 


L J 


190U f l 


00 


0000 


0000 



Flow Line 

•s/WN Group of Monitored Instructions 
1 1 Group of Unmonitored Instructions 



SLIDE 3 




SAM SAMPLE WITH TABLE CONTROL 

Illustrating How to Monitor 

The 15th Loop 



R, 



NOTE: The loops 1-15 
are all the same hut 
are separate here for 
purposes of illustration 



a 



LOC 


OP 


D.A. 


I. A. 


1901, i 


Ik 


F l 


h 


1902,i 


01 


F 2 


h 


1903,i 


00 


0000 


0000 
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SLIDE k 



SAM 2 LISTING 



CD NO 


M 


LOC 




ABBR 


OP 


DA 




IA 




REMARKS 








001 





1600 


01 


STD 


24+ 


1603 


01 


1641 


08 


T1T2 


STORE INST 




002 


9 


1601 


01 


TEMP 


+ 










SF 


FIRST MONITORED 


' INST 


003 


9 


1602 


01 


TEMP 


+ 










SL 


LAST 


■ MONITORED 


INST 


00 4 


9 


1603 


01 


TEMP 


+ 










SM 


MODIFIED 


INST OR 


005 


9 




01 


TEMP 


+ 












FIRST UNMONITD 


INST 


006 


9 


1604 


01 


TEMP 


+ 










ST 


TEMPORARY STORAGE1/2 


007 


9 


1605 


01 


TEMP 


+ 










SA 


NEXT 


1 INST ADDRESS 


008 


9 


1606 


01 


TEMP 


+ 










SP 


STOP 


!E CONSOLE ENTRY 


009 





160 7 


01 


CONST 


00 + 


0000 


00 


0000 


00 


KO 


00 


0000 


0000 


1/2 


010 





1608 


01 


CONST 


65+ 


0000 


00 


1667 


07 


Kl 


65 


0000 


C8/1 


1/2 


on 





1609 


01 


CONST 


00 + 


0001 


00 


0000 


00 


K2 


00 


0001 


0000 


1/2 


012 





1610 


01 


CONST 


00 + 


0000 


00 


0001 


00 


K3 


00 


0000 


0001 


1/2 


013 





1611 


01 


CONST 


00 + 


0000 


00 


0004 


00 


K4 


00 


0000 


0004 


1/2 


14 





1612 


01 


CONST 


00 + 


0000 


00 


0005 


00 


K5 


00 


0000 


0005 


1/2 


015 





1613 


01 


CONST 


65 + 


8001 


00 


1689 


12. 


K8 


65 


8001 


A13/1 


1/2 


016 





1614 


01 


CONST 


65 + 


1631 


02 


1689 


12 


K9 


65 


P5 


A13/1 


1/2 


017 





1615 


01 


CONST 


71 + 


1627 


02 


1777 


14 


K10 


71 


PI 


B18 


1/2 


018 





1616 


01 


CONST 


71 + 


1627 


02 


1793 


14 


Kll 


71 


PI 


B25 


1/2 


19 





1617 


01 


CONST 


00 + 


1768 


14 


1765 


14 


K12 


00 


B14 


B13 


1/2 


020 





1618 


01 


CONST 


65 + 


0000 


00 


1830 


09 


K13 


65 


0000 


SB4/2 2 


021 





1619 


01 


CONST 


65 + 


1901 


06 


1646 


08 


K14 


65 


Tl 


T3/2 


1/2 


022 





1620 


01 


CONST 


69+ 


1765 


14 


1600 


01 


K15 


69 


B13 


Tl 


1/2 


023 





1621 


01 


CONST 


00 + 


0000 


00 


0069 


00 


K16 


00 


0000 


0069 


1/2 


024 





1622 


01 


CONST 


69+ 


0000 


00 


1782 


14 


K17 


69 


0000 


B19/4 


1/2 


025 





1623 


01 


CONST 


00 + 


0000 


00 


1000 


00 


K27 


00 


0000 


1000 


1/2 


026 





1624 


01 


CONST 


69+ 


1616 


01 


1683 


12 


K28 


69 


Kll 


A6/2 


1/2 


027 





1625 


01 


CONST 


69+ 


1637 


01 


1683 


12 


K29 


69 


K31 


A6/2 


1/2 


028 





1626 


01 


CONST 


71 + 


1627 


02 


1779 


14 


K30 


71 


PI 


B19 


1/2 


029 





1637 


17 


STD 


24+ 


1635 


02 


1882 


16 


Til 


STORE RETURN 




030 





1638 


17 


CONST 


01+ 


0220 


00 


1000 


00 


K6 


01 


0220 


1000 


2 


031 





1639 


17 


CONST 


64+ 


1680 


06 


1646 


08 


K7 


64 


Tl MINUS 0221 2 


033 





1837 


03 


CONST 


65+ 


0026 


05 


1689 


12 


K18 


65 


0026 


A13 


2 


034 





1838 


03 


CONST 


68+ 


0000 


00 


1855 


15 


K19 


68 


0000 


A5/2 




035 





1839 


03 


CONST 


69+ 


0000 


00 


1858 


15 


K20 


69 


0000 


Q6/3 


2 


036 





1840 


03 


CONST 


65+ 


0000 


00 


1864 


15 


K21 


65 


0000 


Q10 


2 


037 





1841 


03 


CONST 


65 + 


0001 


00 


1868 


15 


K22 


65 


0001 


Gll/4 




038 





1842 


03 


CONST 


60 + 


0029 


05 


0092 


05 


K23 


60 


0029 


0092 


2 


03 9 





1843 


03 


CONST 


46+ 


0025 


05 


8002 


00 


K24 


46 


0025 


8002 


2 


040 





1844 


03 


CONST 


65 + 


0029 


05 


1872 


15 


K25 


65 


002 9 


Q15 


2 


041 





1845 


03 


CONST 


46+ 


0025 


05 


1673 


12 


K26 


46 


0025 


Al 




042 


9 


1627 


02 


PUNCH 


+ 










PI 


INST LOCATION 




043 


9 


1628 


02 


PUNCH 


+ 










P2 


SAM 


2 FIRST INST 


045 


9 


1629 


02 


PUNCH 


+ 










P3 


SAM 


2 2ND INST 


OR 


047 


9 


1630 


02 


PUNCH 


+ 










P4 


SAM 


2 A f 


r ACTOR 




049 


9 


1631 


02 


PUNCH 


+ 










P5 


SAM 


2 B 1 


r ACTOR 


OR 


051 





1632 


02 


PUNCH 


00 + 


0000 


00 


0000 


00 


P6 


SAM 


2 C 1 


r ACTOR 


OR 


053 





1633 


02 


PUNCH 


00+ 


0000 


00 


0000 


00 


P7 


SAM 


2 CONTENTS 


OF K 


055 


9 


1634 


02 


PUNCH 


+ 










P8 


IDENTIFICATION 




056 


9 


1635 


02 


PUNCH 


+ 










P9 


WASTEBASKET 




057 


9 


1636 


02 


PUNCH 


00 + 


0800 


00 


0000 


00 


P10 


PUNCH CONTROL J 


INFORM 


058 


9 


8000 


00 


CONSL 


69+ 


Rl 




1600 


01 


T3T1 


TABLE ENTRY 




059 


9 


1640 


08 


TEMP 


+ 










SN 


LOOP COUNT 




060 





1641 


08 


RAL 


65 + 


1645 


08 


1642 


08 


T2 


FORM AND 


STORE 




061 





1642 


08 


SL 


16+ 


1639 


17 


1643 


08 


T2 


IDENTIFICATION 


062 





1643 


08 


AL 


15 + 


1623 


01 


1644 


08 


T2 


IN P8 
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SAM 2 LISTING 



CD NO 

063 
064 
65 
066 
067 
068 

069 
070 
071 
72 
73 
074 
075 
76 
077 
078 
079 
080 

081 

082 

083 

084 

085 

86 

088 

089 

O9O 

091 

392 

093 

94 

095 

096 

097 

098 

099 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

58 



M LOC 












9 















8 






1 








7 

7 





8 
1 










1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

8000 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

8001 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 
1682 
1683 
1684 
1685 
1686 
1687 
8002 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 



08 
08 
08 
08 
08 
08 

08 

08 

08 

00 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

00 

07 

07 

07 

07 

07 

07 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

12 

00 

12 

12 

12 

12 

12 

12 

12 

12 



ABBR 

STL 

RAL 

STL 

BRNZ 

LD 

STD 

LD 

SRT 

STU 

CONSL 

STD 

STL 

STU 

LD 

STD 

LD 

STD 

RAL 

STL 

LD 

SRT 

STU 

RAL 

LD 

RAL 

BRNZ 

STD 

STL 

STU 

LD 

STD 

RAL 

SL 

BRNZ 

RSABL 

AL 

STL 

BRMIN 

LD 

STD 

LD 

STD 

RAL 

SL 

BRMIN 

SL 

RAL 

RAL 

STL 

SRT 

AL 

BRNZ 

RAL 

LD 

STIA 



OP 

20 + 
65 + 

20 + 
45 + 
69 + 
24 + 

69- 
30 + 

21 + 
NI + 
24 + 

20 + 

21 + 
69 + 
24 + 
69 + 
24 + 
65 + 

20 + 
69- 
30 + 

21 + 
65 + 
69 + 
65 + 
45 + 
24 + 

20 + 

21 + 
69 + 
24 + 
65 + 
16 + 

45 + 

68 + 

15 + 
20 + 

46 + 

69 + 
24 + 
69 + 
24+ 
65 + 

16 + 
46 + 
16 + 
65 + 
65 + 
20 + 
30 + 
15 + 
45 + 
65 + 
69 + 
23 + 



DA 

1634 
1901 
1606 
1650 
1619 
1645 
1651 
0002 
1640 

FI 
1631 
1630 

1629 
1638 
1634 
1625 
1682 
8C00 
1606 
1663 
0002 
1640 
1645 
1608 
0000 
1671 
1631 
1630 
1629 
1601 

0000 

1688 
1602 
1886 
1640 
1610 
1640 
1680 
1626 
1776 
1616 
1776 
1688 
1613 
1688 
1614 
0000 

0000 

1628 
0008 
1621 
1693 
1617 
1628 
1603 



02 
06 
01 
08 
01 
08 

08 

00 
08 

02 
02 
02 
17 
02 
01 
12 
00 
01 

07 

00 

08 
08 
01 
00 
07 
02 
02 
02 
01 
00 
12 
01 
16 
08 
01 
08 
12 
01 

14 

01 
14 
12 
01 
12 
01 
00 
00 
02 
00 
01 
12 
01 
02 
01 



IA 

1645 
1646 
1647 
1648 
1649 
1878 
1803 
1652 
1321 

LI 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1803 
1664 
1665 
1666 
1781 
1667 
1764 
1669 
1670 
1671 
1672 
1764 
1674 
1675 
1676 
1677 
1678 
1679 
1682 
1681 
1886 
1683 
1886 
1685 
1686 
1687 
8002 
1689 
1689 
1690 
1691 
1692 
1711 
1694 
1695 
1696 



REMARKS 



STORE TABLE ENTRY 



GO TO SUBROUTINE 
STORE N FOR 
LOOP COUNT 
CONSOLE ENTRY 
STORE PREVIOUS 
RESULTS 

SET IDENT 
IN P8 
SET OUT PUT 

CONNECTOR 
STORE CONSOLE 
IN SP 

GO TO SUBROUTINE 
STORE LOOP COUNT 
IN SN 



08 T2T3 

08 T3 

08 T3T4 

08 T4T9T5 END OF TABLE TEST 

08 T9 RESET TI TO Tl 

16 T9T8 

10 T5SA 

08 T6 

09 T6T7 
C0C1 

07 CI 
07 CI 
07 C1C2 
07 C2 
07 C2C3 
07 C3 
07 C3C4 
07 C4 
07 C4C5 

10 C5SA 
07 C6 
07 C6C7 
07 C7 
14 C7 
07 C7C8 

13 C8T10/4T10/6 

07 TlO STORE PREVIOUS 

07 TlO RESULTS 

07 TlO 

07 TlO RESTORE F INST 

13 T10T11 

12 Al TEST FOR LAST 

12 A1A2 INSTRUCTION 

12 A2A7A3 

12 A3 

12 A3 

12 A3A4 CHECK LOOP COUNT 

12 A4A5A6 

12 A5 SET PUNCH CONN 

16 A5A7 FOR LOOPING 

12 A6 SET OUTPUT CONN 

16 A6A7 

12 A9 TEST FOR 8001 

12 A9A10 INST 

12 A10A12A11 

00 All 

12 A11A13 STORE 8001 INST 

12 A12A13 STORE INSTRUCTION 

12 A13A14 IN P2 

12 A14 

12 A14A15 TEST FOR SUB 

12 A15A16A24 ROUTINE ENTRY 

12 A16 

12 A16 STORE MODIFIED 

12 A16A17 INST IN SM 



SAM 2 LISTING 



CD NO 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 



M 


LOC 




ABBR 


OP 


DA 




IA 




REMARKS 





1696 


12 


RAABL 


67+ 


1628 


02 


1697 


12 


A17 







1697 


12 


LD 


69+ 


8003 


00 


1698 


12 


A17 


STORE NEXT INST 





1698 


12 


STIA 


23+ 


1605 


01 


1699 


12 


A17A18 


ADDRESS IN SA 





1699 


12 


SLT 


35 + 


0004 


00 


1700 


12 


A18 







1700 


12 


LD 


69+ 


1688 


12 


1701 


12 


A18 STORE NEXT INST 





1701 


12 


STDA 


22 + 


1688 


12 


1702 


12 


A18A19 


ADDRESS IN A12 





1702 


12 


SRT 


30 + 


0003 


00 


1703 


12 


A19 







1703 


12 


SL 


16+ 


8002 


00 


1704 


12 


A19 CHECK FOR BRANCH 





1704 


12 


SU 


11 + 


1611 


01 


1705 


12 


A19A20 


INST 





1705 


12 


BRNZU 


44+ 


1706 


12 


1708 


12 


A20A21A23 





1706 


12 


SU 


11 + 


1612 


01 


1707 


12 


A21A22 


CHECK FOR BRANCH 





1707 


12 


BRNZU 


44+ 


1719 


13 


1708 


12 


A22B1A23 INST 





1708 


12 


RAL 


65+ 


1617 


01 


1709 


12 


A23 


MODIFY DATA ADD 





1709 


12 


LD 


69+ 


1603 


01 


1710 


12 


A23 


OF CURRENT INS" 





1710 


12 


STDA 


22 + 


1603 


01 


1878 


16 


A23T8 


IF BRANCH INST 





1711 


12 


RAL 


65+ 


1628 


02 


1712 


12 


A24 


STORE SUBROUTINE 





1712 


12 


LD 


69+ 


1688 


12 


1713 


12 


A24 


RETURN 





1713 


12 


STDA 


22 + 


1688 


12 


1714 


12 


A24A25 







1714 


12 


LD 


69+ 


8003 


00 


1715 


12 


A25 







1715 


12 


SRT 


30 + 


0004 


00 


1716 


12 


A25 


STORE RETURN 





1716 


12 


STIA 


23+ 


1605 


01 


1717 


12 


A25A26 


LOCATION IN SA 





1717 


12 


RAL 


65+ 


1620 


01 


1718 


12 


A26 







1718 


12 


LD 


69+ 


1628 


02 


1710 


12 


A26A23/3 CHANGE RETURN 





1719 


13 


RAABL 


67+ 


1628 


02 


1720 


13 


Bl 







1720 


13 


SLT 


35 + 


0002 


00 


1721 


13 


Bl 







1721 


13 


SL 


16+ 


8002 


00 


1722 


13 


Bl 







1722 


13 


SU 


11 + 


1755 


13 


1723 


13 


B1B2 


TEST FOR DIV INS 


7 


1723 


13 


BRNZ 


45+ 


1724 


13 


1729 


13 


B2B40RB6B3 





1724 


13 


RAU 


60 + 


1757 


13 


1725 


13 


B4 







1725 


13 


SLT 


35 + 


0001 


00 


1726 


13 


B4 







1726 


13 


AU 


10+ 


1629 


02 


1727 


13 


B4 


RESTORE PREVIOUS 





1727 


13 


AL 


15+ 


1630 


02 


1728 


13 


B4B5 


RESULTS 





1728 


13 


LD 


69+ 


1631 


02 


1603 


01 


B5SM 







1729 


13 


RAABL 


6 7+ 


1628 


02 


1730 


13 


B3 







1730 


13 


LD 


69+ 


1756 


13 


1731 


13 


B3 


STORE PREVIOUS 





1731 


13 


STDA 


22 + 


1603 


01 


1732 


13 


B3 


ACC RESULTS 





1732 


13 


RAL 


65+ 


1629 


02 


1733 


13 


B3 


TEMPORARILY 





1733 


13 


STL 


20 + 


1760 


13 


1734 


13 


B3 


AND STORE MOD 





1734 


13 


RAL 


65 + 


1630 


02 


1735 


13 


B3 


INST IN SM 





1735 


13 


STL 


20+ 


1761 


13 


1724 


13 


B3B4 







1736 


13 


RAL 


65+ 


1737 


13 


1738 


13 


B6 


TEST FOR NO OF 





1737 


13 


CONST 


00+ 


0000 


00 


0001 


00 


B6B7 


DIVISIONS 





1738 


13 


BRMIN 


46+ 


1745 


13 


1739 


13 


37B11B8 





1739 


13 


SL 


16+ 


1610 


01 


1740 


13 


B8B9 


REDUCT COUNT 





1740 


13 


STL 


20 + 


1737 


13 


1742 


13 


B9B10 


BY ONE 





1741 


13 


STD 


21+ 


1632 


02 


1848 


15 


B16I 


SET P6 TO ZERO 





1742 


13 


RAU 


60 + 


1760 


13 


1743 


13 


BIO 


RESTORE ACC 





1743 


13 


AL 


15+ 


1761 


13 


1744 


13 


BIO 


AND DIVIDE 





1744 


13 


DIV 


14 + 


1762 


13 


1728 


13 


B10B5 







1745 


13 


RAL 


65 + 


1759 


13 


1746 


13 


Bll 


SET CONNECTOR 





1746 


13 


STL 


20 + 


1723 


13 


1724 


13 


B11B4 







1747 


13 


STD 


24+ 


1762 


13 


1748 


13 


B12 


STORE RESULTS 





1748 


13 


STD 


24+ 


1631 


02 


1749 


13 


B12 


TEMPORARILY 





1749 


13 


STU 


21 + 


1629 


02 


1750 


13 


B12 


AND FOR PUNCH 





1750 


13 


STL 


20 + 


1630 


02 


1751 


13 


B12 
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SAM 2 LISTING 



CD NO 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

226 

227 

228 

229 

60 






1751 


13 


LD 


69 + 


1610 


01 


1752 


13 


B12 







1752 


13 


STD 


24+ 


1737 


13 


1753 


13 


812 







1753 


13 


LD 


69 + 


1758 


13 


1754 


13 


B12 


SET CONNECTOR 





1754 


13 


STD 


24+ 


1723 


13 


1792 


14 


B12B13/4 





1755 


13 


CONST 


00+ 


OCOO 


00 


0014 


00 


K32 


00 0000 0014 





1756 


13 


CONST 


14+ 


0000 


00 


1747 


13 


K33 


14 0000 B12/1 





1757 


13 


CONST 


10- 


0000 


00 


cooo 


00 


K34 


10 0000 0000 NEG 





1758 


13 


CONST 


45+ 


1736 


13 


1729 


13 


K35 


45 B6 B3 





1759 


13 


CONST 


45+ 


1724 


13 


1729 


13 


K36 


45 B4 B3 


9 


1760 


13 


TEMP 


+ 










SI CONTENTS P3 


9 


1761 


13 


TEMP 


+ 










S2 CONTENTS P4 


9 


1762 


13 


TEMP 


+ 










S3 DIST AFTER DIVISION 





1763 


13 


CONST 


00 + 


1607 


01 


0000 


00 


K37 00 L/0/ 0000 





1764 


13 


LD 


69 + 


1673 


12 


1637 


17 


T10T11 







1765 


14 


STD 


24+ 


1631 


02 


1766 


14 


B13 


STORE RESULTS 





1766 


14 


STL 


20 + 


1630 


02 


1767 


14 


B13 







1767 


14 


STU 


21 + 


1629 


02 


1792 


14 


B13B16 







1768 


14 


RAL 


65 + 


1628 


02 


1769 


14 


B14 


STORE NEXT INST 





1769 


14 


LD 


69 + 


8003 


00 


1770 


14 


B14 


LOC OF BRANCH 





1770 


14 


STDA 


22 + 


1605 


01 


1771 


14 


B14B15 


INST 





17 71 


14 


LD 


69 + 


1688 


12 


1772 


14 


B15 


SET UP NEXT INST 





1772 


14 


STDA 


22 + 


1688 


12 


1792 


14 


B15B13/4 ADDRESS 





1773 


14 


RAL 


65 + 


1634 


02 


1774 


14 


B16 


INCREASE CARD 





1774 


14 


AL 


15 + 


1610 


01 


1775 


14 


B16 


COUNT BY 1 





1775 


14 


STL 


20+ 


1634 


02 


1741 


13 


B16B16I 2 


7 


1776 


14 


PCH 


71 + 


1627 


02 


1777 


14 


B17B18/B19/B25/B28 





1777 


14 


LD 


69+ 


1605 


01 


1778 


14 


B18 


STORE INST LOC 





1778 


14 


STD 


24+ 


1627 


02 


1673 


12 


B18A1 


IN PI 





1779 


14 


RAL 


65 + 


1688 


12 


1780 


14 


B19 


STORE FIRST 





1780 


14 


LD 


69 + 


1622 


01 


1781 


14 


B19 


UNMONITORED 





1781 


14 


STDA 


22 + 


1635 


02 


8001 


00 


B19 


INST IN SM 


8 


8001 


00 


LD 


69+ 


0000 


00 


1782 


14 


B19 







1782 


14 


STD 


24+ 


1603 


01 


1783 


14 


B19B20 







1783 


14 


RAL 


65 + 


1634 


02 


1784 


14 


B20 


RESET CARD CT TO 





1784 


14 


SRT 


30 + 


0003 


00 


1785 


14 


B20 


ZERO 





1785 


14 


SLT 


35 + 


0003 


00 


1786 


14 


B20 







1786 


14 


AL 


15 + 


1623 


01 


1787 


14 


B20 


INCREASE LOOP CT 





1787 


14 


STL 


20 + 


1634 


02 


1788 


14 


B20B21 


BY ONE 





1788 


14 


LD 


69+ 


1615 


01 


1789 


14 


B21 


SET CONNECTOR 





1789 


14 


STD 


24+ 


1776 


14 


1790 


14 


B21B22 


TO B18 





1790 


14 


RAL 


65 + 


1606 


01 


1791 


14 


B22 







1791 


14 


LD 


6 9- 


1821 


09 


1803 


10 


B22B23 


SET RETURN ADD 





1792 


14 


LD 


69 + 


1773 


14 


1637 


17 


B13T11 







1793 


14 


RAL 


65 + 


1645 


08 


1794 


14 


B25 


INCREASE TABLE 





1794 


14 


AL 


15 + 


1609 


01 


1795 


14 


B25 


INDEX BY ONE 





1795 


14 


STL 


20 + 


1645 


08 


1796 


14 


B25B26 







1796 


14 


LD 


69 + 


1615 


01 


1797 


14 


B26 


SET CONNECTOR 





1797 


14 


STD 


24 + 


1776 


14 


1798 


14 


B26B27 


TO B18 





1798 


14 


RAL 


65 + 


1688 


12 


1799 


14 


B27 


STORE FIRST 





1799 


14 


LD 


69 + 


1620 


01 


1800 


14 


B27 


UNMONITORED 





1800 


14 


STDA 


22 + 


1635 


02 


8001 


00 


B27 


INST IN SM 





1801 


14 


LD 


69 + 


1624 


01 


1802 


14 


B28 


SET CONNECTOR 





1802 


14 


STD 


24+ 


1682 


12 


1796 


14 


B28B26 


TO B19 





1803 


10 


STD 


24+ 


1635 


02 


1804 


10 


SA1SA2 


STORE FOR RETURN 





1804 


10 


LD 


69 + 


8003 


00 


1805 


10 


SA2 


STORE LOCATION 



SAM 2 LISTING 



CD NO 

230 
231 
232 
233 
234 
248 
249 
250 

251 
252 

253 
254 

255 
256 
257 
258 
259 
260 

261 
2 62 
2 63 
264 
265 
266 
267 
268 
269 
270 
271 
272 
2 73 
2 74 
2 75 
2 76 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



M 


LOC 




ABBR 


OP 


DA 




IA 




REMARKS 







1805 


10 


STDA 


22+ 


1627 


02 


1806 


10 


SA2SA3 


OF F IN PI 





1806 


10 


LD 


69+ 


1688 


12 


180 7 


10 


SA3 


SET UP A12/1 





1807 


10 


STDA 


22 + 


1688 


12 


1808 


10 


SA3SA4 







1808 


10 


SLT 


35 + 


0004 


00 


1809 


10 


SA4 


STORE LOCATION 





1809 


10 


STDA 


22 + 


1602 


01 


1635 


02 


SA4P9 


OF L IN SL 





1821 


09 


LD 


6 9- 


1878 


16 


1822 


09 


T7SB1 




c 


1822 


09 


STD 


24+ 


1635 


02 


1823 


09 


SB1 


STORE FOR RETURN 





1823 


09 


RAL 


65+ 


1606 


01 


1824 


09 


SB1SB2 


LOAD SP 





1824 


09 


LD 


69+ 


1832 


09 


1825 


09 


SB2 


STORE LOCATION 





1825 


09 


STDA 


22+ 


1832 


09 


1826 


09 


SB2SB3 


OF F IN SB5/2 





1826 


09 


LD 


69+ 


1672 


07 


182 7 


09 


SB3 


STORE LOCATION 





182 7 


09 


STDA 


22 + 


1672 


07 


1828 


09 


SB3SB4 


OF F IN T10/5 





1828 


09 


LD 


6 9+ 


1618 


01 


1829 


09 


SB4 


STORE FIRST 





1829 


09 


STDA 


22 + 


1618 


01 


8001 


00 


SB4 


MONITORED INST 


8 


8001 


00 


RAL 


65 + 


L/F/ 




1830 


09 


SB4 


IN SF 





1830 


09 


STL 


20+ 


1601 


01 


1831 


09 


SB4SB5 







1831 


09 


LD 


69+ 


1668 


07 


1832 


09 


SB5 


REPLACE FIRST 


1 


1832 


09 


STD 


24+ 


0000 


00 


1833 


09 


SB5SB6 


INST 





1833 


09 


SL 


16+ 


1603 


01 


1834 


09 


SB6SB7 


TEST FOR F EQUAL 





1834 


09 


BRNZ 


45 + 


1635 


02 


1835 


09 


SB7P9SB8 TO R 





1835 


09 


LD 


69+ 


1671 


07 


1836 


09 


SB8 


REPLACE INST 





1836 


09 


STD 


24+ 


1603 


01 


1635 


02 


SB8P9 


IN SM 





1846 


15 


RAL 


65+ 


0029 


05 


1847 


15 


Gl 


COMPUTE INST LOC 





1847 


15 


AL 


15+ 


1609 


01 


1849 


15 


G1G2 







1848 


15 


STU 


21 + 


1633 


02 


1776 


14 


B16IB17 


SET P7 TO ZERO 





1849 


15 


STU 


21 + 


1629 


02 


1850 


15 


G2G3 


SET P3 TO ZERO 





1850 


15 


STDA 


22 + 


1627 


02 


1851 


15 


G3G4 


STORE LOC IN Pi 





1851 


15 


RAABL 


67+ 


8001 


00 


1852 


15 


G4 STORE LOC IN 





1852 


15 


LD 


6 9+ 


1688 


12 


1853 


15 


G4 


PROGRAM 





1853 


15 


STDA 


22 + 


1688 


12 


1854 


15 


G4G5 







1854 


15 


AL 


. 15 + 


1838 


03 


8002 


00 


G5 


STORE INST IN P2 


8 


8002 


00 


RAL 


65 + 


0000 


00 


1855 


15 


G5 







1855 


15 


STL 


20 + 


1628 


02 


1856 


15 


G5G6 







1856 


15 


LD 


69+ 


1839 


03 


1857 


15 


G6 


STORE FACTOR A 





1857 


15 


STDA 


22 + 


1635 


02 


8001 


00 


G6 


FOR PUNCHING 


8 


80 01 


00 


LD 


69+ 


0000 


00 


1858 


15 


G6 







1858 


15 


STD 


24+ 


1630 


02 


1859 


15 


G6G7 







1859 


15 


SLT 


35 + 


0006 


00 


1860 


15 


G7 







1860 


15 


SU 


11 + 


8003 


00 


1861 


15 


G7G8 


TEST FOR B ADD 





1861 


15 


BRNZ 


45 + 


1862 


15 


1864 


15 


G8G9G10 







1862 


15 


SRT 


30 + 


0002 


00 


1863 


15 


G9 


IF B FACTOR STORE 





1863 


15 


SL 


16+ 


1840 


03 


8002 


00 


G9 


IN P5 / IF NOT 


8 


8002 


00 


RAL 


65+ 


0000 


00 


1864 


15 


G9G10 


STORE ZERO 





1864 


15 


STL 


20 + 


1631 


02 


1865 


15 


G10G11 


STORE ZERO 





1865 


15 


RAL 


65+ 


1627 


02 


1866 


15 


Gil 


LOAD NEXT INST 





1866 


15 


AL 


15+ 


1841 


03 


8002 


00 


Gil 


AND STORE IN P6 


8 


8002 


00 


RAL 


65 + 


0000 


00 


1868 


15 


Gil 







1867 


15 


RAL 


65+ 


1763 


13 


1889 


16 


G13/2G13/3 





1868 


15 


SLT 


35+ 


0002 


00 


1869 


15 


G11G12 


TEST FOR SECOND 





1869 


15 


BRNZU 


44+ 


1867 


15 


1870 


15 


G12G13/2G13/1 INST 





1870 


15 


SRT 


30 + 


0002 


00 


1871 


15 


G13 


STORE NEXT INST 





1871 


15 


STL 


20 + 


1629 


02 


1889 


16 


G13/1 







1872 


15 


LD 


6 9+ 


0057 


05 


1873 


15 


G15 


STORE K IN P7 FOR 





1873 


15 


STD 


24+ 


1633 


02 


1891 


16 


G15G15/1 





1874 


15 


RAL 


65+ 


1634 


02 


1875 


15 


G16 


INCREASE CD 
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SAM 2 LISTING 



CD NO 

298 

2 99 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
317 
318 
319 
320 
321 
322 
323 
324 
325 



M LOC 




















1 














1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1810 
1811 



15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
11 
11 



ABBR 

AL 

STL 
PCH 
LD 

STD 

LD 

STD 

LD 

STD 

LD 

STD 

RAL 

SL 

BRNZ 

LD 

STDA 

LD 

STD 

LD 

STD 

LD 

STD 

CONST 

CONST 

RAL 

SL 

STL 



OP 

15+ 
20 + 
71+ 
69+ 
24+ 
6 9+ 
24+ 
69+ 
24+ 
69+ 
24+ 
65+ 
16+ 
45+ 
69+ 
22 + 
69+ 
24+ 
69+ 
24+ 
69+ 
24+ 
22+ 
22 + 
65+ 
16+ 
20+ 



DA 

1610 
1634 
1627 
1842 
0026 
1843 
0439 
1844 
0026 
1845 
0439 
1688 
1837 
1684 
1891 
1891 
0000 
1632 
1898 
0426 
1897 
0426 
0029 
0029 
0029 
1609 
0029 



01 
02 
02 
03 
05 
03 
05 
03 
05 
03 
05 
12 
03 
12 
16 
16 
00 
02 
16 
05 
16 
05 
05 
05 
05 
01 
05 



IA 

1876 
1877 
1846 
1879 
1880 
1881 
1895 
1883 
1884 
1885 
1893 
1887 
1888 
1846 
1890 
1842 
1892 
1874 
1894 
1635 
1896 
1719 
8001 
1899 
1810 
1811 
1872 



REMARKS 



15 
15 
15 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
15 
16 
03 
16 
15 
16 
02 
16 
13 
00 

16 
11 
11 
15 



G16 

G16G17 
G17G1 PUNCH 



CT BY ONE 



RESULTS 



RESTORE 
INST 



T8 

T8 

T8 

T8 

Til 

Til 

Til 

Til 

A7 

A7A8 

A8A9G1 

G13/3 

G13/3K23 

G15/1 STORE 

G15/1G16 IN 

Til 

THAI 

T8 

T8B1 

K37 

K38 

G19 

G19 

G19G15 



INTERP 



SET INT ROUTINE 
FOR MONITORING 



CHECK FOR INT 
ROUTINE 



C OR ZERO 
P6 



NORMAL 
MOD BR 
I MINUS 



BR EXIT 
EXIT 
ONE 



M CODE - INDICATES THAT THE OPERATION CODE - DATA ADDRESS OR 
INSTRUCTION ADDRESS OR ANY COMBINATION OF THESE IS 
TO BE MODIFIED 



M - 1 DA IS TO BE MODIFIED 

2 IA IS TO BE MODIFIED 

3 OP IS TO BE MODIFIED 

4 DA - IA ARE TO BE MODIFIED 

5 DA - OP ARE TO BE MODIFIED 

6 IA - OP ARE TO BE MODIFIED 

7 DA-IA-OP ARE TO BE MODIFIED 

8 8000 INSTRUCTION NOT ENTERED INTO 

9 CODING IDENTIFICATION NOT ENTERED 



650 
INTO 



650 



NOTE - CARDS APPARENTLY MISSING IN ABOVE ROUTINE WERE NOT 
NEEDED IN SAM 2 BUT ARE USED IN SAM 1 
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THE MIT INSTRUMENTATION LABORATORY AUTOMATIC 

CODING 650 PROGRAM 



R. H. Battin, R. J. O'Keefe, and M. E. Petrick 
Massachusetts Institute of Technology 



I. Introduction 

At the MIT Instrumentation Laboratory we are faced with a 
situation which is undoubtedly not unique in the computing business. 
From our many fields of activity come a wide variety of scientific 
problems requiring machine computation; at the same time, our 
staff of programmers is quite small indeed. Therefore, it is 
necessary for the various engineers, with whom these problems 
originate, to prepare their own programs for the machine. We have 
always felt that many advantages might accrue from such an arrangement 
if the problem of coding and mistake diagnosis could be considerably 
simplified. Having then, as our prime objective, that of making 
programming as natural and inartificial as possible, we have developed 
a mnemonic general purpose floating decimal interpretive routine for 
the IBM Type 650. 

This routine consists of many arithmetical, functional and 
logical operations and occupies approximately 1500 storage locations. 
Approximately 350 of these storage registers are required by the 
"re ad- in" routine which is used to translate the programmers program, 
and enter it on the drum. This portion of the interpretive routine may 
be used by the programmer to store data. Therefore, the programmer 
has roughly 850 storage locations in which to store both his program and 
data. These were chosen within the first one thousand drum storage locations 
so that a three digit address is sufficient to specify the location of the 
programmer 1 s data. 

Among the outstanding features of this routine is the mnemonic 
coding system used in preparing programs. The ease with which pro- 
gramming is accomplished may be illustrated by means of a few 
examples. 

1. To add the contents of storage locations 201 and 202 we write: 

P201 A P202 . 

We use P for plus and M for minus to affect sign control on the factors 
used in the various arithmetical and functional operations. Thus, if 
we wished to subtract the contents of storage location 202 from the 
contents of 201, we would write: 

P201 A M202 . 
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2. The result of each computation is automatically stored in 
location 000. To multiply the previously computed quantity by the 
negative of the contents of storage location 201 and store the result 
in register 203 we write: 

M201 X P000 S 203 . 

3. To compute the sine of the quantity in storage location 202 
and store the result in register 204 we write: 

SIN P202 S 204 . 

In all there are provided twenty-five possible arithmetical 
operations and seven functional operations which are discussed in 
more detail below. In addition to these there are sixteen so-called 
"logical" operations which are used to control data input and output, 
to facilitate conditional branching and cycling, to enable the programmer 
to modify his own interpretive instructions and to facilitate checking 
procedures. In general, the programmer will write his entire program 
in this symbolic form. If he wishes to incorporate any normal non- 
interpreted basic 650 instructions with his program, he writes, for 
example: 

BR650 250 . 

The next instruction will be taken from register 0250 and it and 
subsequent instructions are not interpreted. This mode of operation 
continues until control is transferred back to the interpretive routine 
by means of an appropriate instruction address. 

II. The Read-In Program 

The programmer prepares a program for the 650, using this 
symbolic notation, on the form shown on page 12 . At the bottom 
of this form is a summary of the various arithmetical operations 
and the "correct" spelling of functional and logical mnemonic codes. 
Each instruction is punched on a separate card. The last instruction 
of every program must be FINIS. This must not only be the last 
instruction executed but must also be physically located at the end 
of the program deck. After the card containing the FINIS instruction 
are placed cards containing the floating decimal data and basic 650 
non-interpreted instructions, if any. These are punched six to a card 
and are read into the machine under the control of the programmer' s 
program. 

During the read-in phase each program card is read and con- 
verted into a single ten- digit instruction. Since no alphabetical device 
is employed, appropriate selector wiring is used to convert alphabetic 
characters into numeric codes. A single instruction is dissected into 
ten parts and enters the machine as ten separate words. The division 
is as follows: 
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Word 1: Card number (cols. 1-5) 

Word 2: Entry point number (cols. 6-7) 

Word 3: Sign of first operand (col. 8) 

Word 4: Location of first operand (cols. 9 - 11) 

Word 5: First operation (col. 12) 

Word 6: Sign of second operand (col. 13) 

Word 7: Location of second operand (cols. 14 - 16) 

Word 8: Second operation (col. 17) 

Word 9: Sign of third operand (col. 18) 

Word 10: Location of third operand (cols. 19 - 21) 

The card number is used only for sequence checking so that 
the machine will stop on read-in if the cards are out of normal sequence. 
Entry point numbers are assigned by the programmer only to those 
instructions which are referred to by the program itself as when 
branching or modifying instructions. When not used, these columns 
are left blank and zeros are filled in by means of selector wiring. 
The entry point artifice makes it unnecessary for the programmer to 
know precisely where each instruction is being stored on the drum. 
Thus, instructions may be added or removed from a program deck 
without, in general, necessitating any alteration in the remainder of 
the program. 

The signs of the three operands enter the machine coded as an 8 
for plus and a 9 for minus. The distinction between arithmetical operations 
and functional or logical operations is made in the Type 533 by means of 
selector wiring. If Word 4 is negative, the numerical portion of the word 
is a unique code representing one of the functional or logical instructions. 
The particular instruction is then determined by a table look-up operation. 

The first operation code stored in Word 5 has significance only 
for arithmetical instructions. There are four possibilities: 

No Operation: 88 Multiply: 8 9 

Add : 99 Divide : 9 8 

The second operation code stored in Word 8 has significance for 
arithmetical and functional operations. Here, there are five possibilities: 



65 



No Operation: 


888 






Multiply: 


898 


Add: 


998 


Store: 


889 


Divide : 


9 88 



If the instruction calls for a functional operation, the second operation 
code can be only No Operation or Store. 

After the read-in program has translated each program card and 
stored the coded instructions in consecutive locations, the entire program 
is then searched to replace entry point numbers, counter numbers, etc. , 
by actual drum addresses. When this has been accomplished, the 
computer stops and a signal is provided to inform the operator that 
computation is ready to begin. 

The read-in routine is programmed so that the card reader will 
operate at 200 cards per minute. This has been accomplished in part by 
doing as much of the translating as possible on the control panel. The 
entire selector capacity of a standard Type 650 is utilized for this purpose. 

III. Instruction Form and the General Interpretation Routine 

The various interpreted instructions are divided into three 
catagories and are assembled in the machine by the read-in program. 
They appear in storage in the following form: 

Class I. Arithmetic (no store) 



xx 



xxx 



x 



xxx 



Instruction code 
Sign of Operand A 
Location of Operand A 
Sign of Operand B 
Location of Operand B 



Class II. Arithmetic (store) and functional operation 



8x 



x 



xxx 



xxx 



Instruction code 
Sign of Operand A 
Location of Operand A 

8 - Arithmetic 

9 - Function 
Storage Address 



{ 



+ 
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Class III. Logical operations 



First address 
Second address 



9x, xxx x xxx + 

8 or 9 



Instruction 
code 



The general interpretation routine selects instructions in 
sequence from consecutive storage locations. The sign of the 
instruction separates Class I from Classes II and III instructions. 
An 8 or 9 in the tenth digit position separates Class II from Class III 
instructions. An 8 or 9 in the fourth digit position of a Class II instruction 
distinguishes between arithmetical and functional operations. 

This particular catagorical break-down and instruction form was 
selected so that the general interpretation routine would be as fast as 
possible. Each class of instruction is handled as follows: 

Class I: Operands A and B are stored in fixed locations with 
appropriate signs and control is transferred to the relevant subroutine. 

Class II: Operand A is stored with appropriate sign in a fixed 
location and the address location for storing the computed result is inserted 
in the data address portion of a certain instruction. Control is then 
transferred to the relevant subroutine. 

Class III: Control is transferred immediately to the appropriate 
subroutine. 

IV. Description of the Computer Operations 

At the bottom of the programming form on page 12 is shown a 
complete list of the possible arithmetic operations. The factors A 
and B may be selected from any storage locations with complete 
freedom on the control of the algebraic sign. The factor K is the 
result of the immediately preceding computation and has the address 000. 
The result of each arithmetical and functional computation is always 
automatically stored in this location. Sign control for the factor K is 
possible only where indicated in the table of arithmetic operations. 
For arithmetic computations involving three operands the first operation 
indicated is always the first to be performed. Thus 

AXB+ K = <AXB)+ K. 
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The various functional operations provided require but little 
comment. Complete sign control on the argument is provided. The 
only possible second operation is Store. Since the result of the computa- 
tion is also automatically stored in register 000, we need not store it 
again elsewhere if it is to be used only on the immediately following 
instruction. In such a case the second operation and corresponding 
location may be left blank. 

A variety of logical operations are included so that flexibility 
and versatility of programming may be achieved in the interpreted 
mode of operation. Sample instructions describing these logical 
operations follow. 

1. Input and Output Control Operations 

READ 200 

The location specified must be the initial address of any band 
of storage. The six floating decimal numbers on the data card are 
read into the first six words of storage of the specified band. The 
number form as it appears on the data card is as follows: 



Mantissa 
Exponent + 50 



xxxxxxxx xx 



However, in the machine, the exponent and the mantissa are in the 
reverse order. The word DATA is punched in columns 77-80 for 
all cards containing floating decimal numbers. Cards which contain 
basic 650 instructions have the numbers 650 punched in columns 78-80. 

A six digit identification is read into the seventh word together 
with a 50 exponent emitted from the control panel to form a floating 
decimal identification which may be used at the programmer 1 s discretion. 
Words 8, 9, and 10 of the read band are left undisturbed by this operation. 

PUNCH 200 

The location specified must be the initial address of any band 
of storage. The form of the output card is the same as that of an input 
data card. The first six words of the punch band are punched as data 
while the seventh word is punched as a six digit identification. The 
eighth word is punched as a five digit card number so that output cards 
may be ordered if desired. 
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2. Counters and Cycling Operations 

RSCT 001 050 

Ten counters are provided in the computer to facilitate cycling 
operations. The instruction, Reset Counter (RSCT) in the example 
above, resets counter number one to the value fifty. The counter 
values are stored in locations 901-910 and may be used, for example, 
to identify output cards. 

BRCNT 003 005 

The Branch and Count (BRCNT) operation is used to affect the 
cycling. First, the value of counter number three is reduced by one. 
If the counter value is now zero, no branching occurs and the next 
instruction is taken in normal sequence. If the counter value is not 
zero, the normal sequence of operations is broken and the next 
instruction executed is the one having the entry point number 5. 
Instructions are then taken in normal sequence from this point. 

3. Branching Operations 

BRNCH 006 

The Branch (BRNCH) instruction causes the normal sequence 
of instructions to be interrupted unconditionally. The next sequence 
of orders begins with the instruction having the entry point 6. 

BRMIN 225 004 BRNOZ 225 004 

The two conditional branching instructions, Branch Minus 
(BRMIN) and Branch Non-Zero (BRNOZ) , test the contents of storage 
location 225. If the number tested is negative or different from zero, 
respectively, the normal sequence of operations is interrupted and the 
next instruction executed is the one having the entry point number 4. 

BR650 250 

The usefulness of this instruction is discussed at the end of the 
introduction. 

TA 008 

Quite often the programmer would like to incorporate, within his 
main program, a subroutine consisting of interpreted instructions to 
which he would branch from several different points in his main routine. 
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After executing the subroutine, he would then like to return to the 
point in his main routine from which he branched. This may be 
accomplished quite easily by means of the instruction Transfer 
Address (TA). The method by which this is done may be seen from 
the following example: 

Main Program Sub -Program 

01 TA 008 

BRNCH 001 ... 

08 BRNCH 000 

BRMIN 252 001 

• • • 

In this example we interrupt the main program at two different 
points, each time branching to entry point 1. The TA instruction then 
causes the return address for the branch instruction located at entry 
point 8 to be set so that control will be transferred back to the main 
program to the point from which it left after execution of the subroutine. 
The branch instruction at the end of the sub-program may be of either 
the conditional or unconditional variety. 

4. Instruction Modification Operations 

AOL 005 AOR 005 

The instructions Add One Left (AOL) and Add One Right (AOR) 
are used to enable the programmer to modify his own interpreted 
instructions. The effect of these operations is to increase by one the 
left or right hand addresses of the instruction having the entry point 5. 
For the case of an arithmetic instruction having three operands, there 
is no ambiguity since one of these addresses must be 000. Clearly, 
we never wish to modify this address. 

RSTL 005 RSTR 005 

The instructions Restore Left (RSTL) and Restore Right (RSTR) 
are used to restore the left or right hand addresses of the instruction 
having the entry point 5 to the value originally assigned by the program- 
mer. Since the machine must remember these original values, all 
instructions referred to by Restore Operations are stored in their 
original form at the end of the program. This is handled automatically 
by the read-in program and need be of no concern to the programmer. 
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5. The Check Stop Operation 

STOP 010 

The Check Stop instruction (STOP) is used by the programmer to 
aid in checking out his program. Any number of stop orders may be 
placed throughout a program at convenient spots. They must be followed 
immediately by an arithmetical or functional operation and be numbered 
consecutively beginning with 010. Thus, if three stop orders are used, 
the addresses must be 010, 011 and 012 but do not necessarily have to 
appear in the program in that order. 

Under normal operation the stop order will have no effect on the 
computation. However, if the Address Selection Switches are set at 0010 
and the Control Switch set at Address Stop, the machine will execute 
the instruction immediately following the relevent stop order and then 
stop computation. The two operands A and B and the results of the 
computation will be stored in the upper and lower accumulator and the 
distributor. Then, by means of the Display Switch, the programmer 
may check these quantities. Because the sign of the two halves of the 
accumulator must be identical, the order of the factors A, B, and K 
cannot always be the same. There are three possible arrangements 
and the order section of the program register indicates the appropriate 
arrangement to the programmer according to the following code: 

Code Upper Lower Distributor 

00 A B K 

10 A K B 

11 K B A 

If the programmer is satisfied with the result, he may depress 
the Program Start button and the computation will continue from that point. 

Because the Address Stop Switch is used with the STOP instruction, 
the address set into the Address Switches must be one which is encountered 
only during the STOP order. The read-in routine counts the number of 
STOP instructions as the program cards are read and shifts the program 
in storage by this amount. Storage locations 001 through 009 are used 
to store some frequently used constants as indicated at the bottom of the 
program form. Then beginning with register 010 a block of storage is 
cleared to be used by the STOP instructions. After this the program is 
stored consecutively and immediately following the FINIS instruction is 
placed a duplicate set of those instructions referred to by RSTL and RSTR 
operations. This is all handled automatically by the read- in program. 
However, the programmer must be cognizant of these facts when planning 
his data storage. 
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V. Programming Examples 

We shall now illustrate the ease with which programs may be 
prepared by means of a few examples. 

Example 1: Consider the problem of finding the root of the 
transcendental equation 

cos x = x 

We shall program this as an iteration process using the well-known 
Newton 1 s method. In general, to solve the equation 

f(x) = 

it can be shown that if x. is in approximation to the root, then 

1 f lv \ 



x i + l = x i 



f (x^ 



f ! (x^ 
will be a better approximation. In our case 

f(x) = cos x - x 



so that 



x i + l = X i + 



COS Xj - Xj 

sin Xj .+ 1 



As a criterion for stopping the iteration let us require that 

|x i+1 - x.| =i lO" 6 

An annotated program to solve this problem is shown on page 12 . 
From this form program cards are prepared and listed on an IBM Type 402 
tabulator. The programmer now has the opportunity to proofread and check 
his program for error in analysis and punching. A copy of the proof for this 
problem is reproduced below. 



10 READ 100 

20 P 009 S 127 

30 01 COS P127 S 100 

40 SIN P127 

50 P001AP000 

60 P100AM127DP000 

70 P127AP000S 102 
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80 P137 A MOOO 

90 ABVAL POOOS 103 

100 P102 S 1 27 

110 P101AM103 

120 BRMIN 000 001 

130 PUNCH 100 

14 FINIS 



These cards are then read into the machine under the control 
of the read-in program and computation begins. Six iterations were 
required to obtain the desired accuracy with a total computation time 
of six seconds not including the time required to read in the program. 

Example 2: To illustrate the use of a few of the logical operations, 
consider the problem of reading in 60 numbers into the machine and 
storing them away in consecutive storage locations beginning with register 
301. Ten data cards are required and the following program will do the 
job: 

RSCT 001 010 

02 RSCT 02 006 

READ 200 
01 P201 S 301 

AOL 001 

A R 001 

BRCNT 002 001 

R STL 001 

BRCNT 001 002 



Example 3: Two ten dimensional vectors are to be multiplied 
together. The elements of the first vector are stored in locations 201-210 
while those of the second are stored in 301-310. The following program 
performs the multiplication and stores the result in register 350. 



P201 X P301 



01 



RSCT 


00 1 


09 


P 202 X 


P302 A 


P 000 


AOL 


001 




A R 


001 




BRCNT 


01 


001 



P000 S 350 



73 



Instrumentation Laboratory 
Massachusetts Institute of Technology 



MITILAC 650 PROGRAM 



Problem No. 
Description . 



Written by 



Page 



Project No. 



of 



Root of cos x = x 













Entry 


Operation 


\ 


Location 


O 

p 

e 
r 




Location 


Functions and Logical Operations 




i_ard rnumDer 


Point 
Number 


\ 


Location 


\ 


\ 


Location 


\ 


Location 


Arithmetic Operations 




1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


Remarks 













I 









R 


E 


A 


D 






1 


















10" 6 — 101 













2 









P 








9 












s 




1 


2 


7 


x = — 127 













3 








I 


C 





S 






P 


1 


2 


7 


s 




1 


O 





cos xo -* 100 













4 









S 


I 


N 






P 


1 


2 


7 












sin xq 













5 









lP_ 








1 


A 


P 





















1 + sin xo 













6 









P 


I 








A 


M 


1 


2 


7 


D 


P 





O 





(cos xq - xq) / (1 + sin xq ) 













7 









P 


I 


2 


7 


A 


P 











s 




1 





2 


Xl — 102 













8 









P 


I 


2 


7 


A 


M 





















x - x x 




OJ 








9 









A 


B 


V 


A 


L 


P 











s 




1 


O 


3 


lx - X1 l -~ 103 






















P 


I 





2 












s 




1 


2 


7 


x l — 127 












I 









P 


I 





1 


A 


M 


1 





3 












10" 6 - |x - Xj | 












2 









B 


[r 


M 


1 


N 























1 














3 









P 


lU 


N 


C 


H 




1 






























4 









F 
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1 


S 
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Arithmetic 
Codes 




= unctional 

Codes 


Logical Codes 


Location 
of Constants 


Arithmetic Operations 




F 

/ 
) 
1 


»: P 

4: M 
k: A 
C: M 
): D 
: S1 


lus 

inus 

dd 

ultip 
ivide 

ore 


ly 


SIN 

COS 

ARCTN 

SQRT 

ABVAL 

EXP 

LOG 




RI 
PI 
BF 
Bl 
BI 
Bf 
Bl 
Dl 


iAD 
JNO 
?NCh 
?MIN 

?.no; 

?CN1 
?650 
FEQ 


AC 
1 AC 

i T/ 
RJ 

'. RJ 

r rj 

SI 
Fl 


)L 
5R 
^ 

TL 
»TR 
.CT 
"OP 
NIS 






001 

oo: 
oo: 

00' 
00. 
00< 
00" 
00! 
00' 


: 1 
X: 2 
5: 3 
i: K 
5: 5 
j: V 
J: e 
5: n 
): 


10/77 
2 








A+B AxK+B A+K+B 
A+B+K AxB-K K+A+B 
A+B-K AxBxK A->B 
A + BxK AxB + K A+K-»B 
A + KxB AxK + B A-K->B 
A+B + K A+B AxK-»B 
A+K + B A+B + K A+K->B 
AxB A+B-K K + A-»B 
Ax B + K 





IL- 124 
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VI. Checking Procedures 

In Section IV we described the operation of the STOP instruction 
and how it is used in checking out programs. A number of other procedures 
have been devised for this purpose to facilitate checking which will now be 
discussed. 

One of the most common errors in programming occurs in arith- 
metic operations which involve three operands. If none of the three 
addresses is 000, the read-in program will translate this instruction 
into a different order and not detect the error. To combat this, we have 
wired our tabulator to check this kind of error when preparing a listing of 
the program. Thus, if any instruction of this kind appears in a program, 
the tabulator will print an asterisk beside it. 

The read-in routine is designed to check for several kinds of 
program errors during the read-in phase. The card number sequence 
of program cards is checked and the machine will stop if the cards are 
out of order. Also the spelling of functional and logical mnemonic codes 
is checked. In most cases if information is punched in the wrong columns 
of the card, this will be detected by the validity checking circuits of the 
650 itself. 

Several kinds of errors are checked while the actual computation 
is being performed. The interpreted READ instruction checks the 
numbering sequence of the data cards as they are read into the computer. 
The machine will stop if the cards are out of order. Also the machine 
will stop if instructed to take the square root of a negative number. In 
this case the lower accumulator will contain the number whose square 
root is called for and in the distributor will be the instruction itself. The 
operation code in the program register will be 50 to indicate the reason 
the machine stopped. 

If a functional operation using a series computation has an operand 
which exceeds 10 10 in magnitude, the machine will stop. The argument 
will be in the lower accumulator, the instruction in the distributor, and 
a 40 in the operation section of the program register. 

The mast useful device available to the programmer for checking 
out his program is the list mode of operation. When the read-in program 
has translated all program cards, the machine stops. By a proper setting 
of the storage entry switches, the programmer then has the option to have 
each arithmetical and functional operation punched out on a separate card. 
The programmer will then have a complete listing of just how his program 
is functioning. By using this procedure in conjunction with the STOP 
instructions, the programmer may alternate between the list mode and the 
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normal mode of operation at will. Each card that is punched while 
listing contains the operation code, the addresses of the operands, 
the operands themselves, and the result of the computation. On this 
and the following pages is shown a partial listing of the program for 
Example 1 discussed in Section V. Because of paper size limitations 
the listing from the tabulator is shown in this paper in two parts. 

L(A) L(B) L(C) 



Operation 


A 


F 2 


F 1 


A +B 


A +B / C 


A +B 


A +B 


F 5 


A 


A + B 


F 2 


F 1 


A + B 


A + B / C 


A + B 


A + B 


F 5 



P 009 S 1 2 7 

P127 S100 

PI 27 S000 

P001 POOO 

P100 M127 POOO 

P127 POOO S102 

P127 M000 

POOO S 1 3 

P102 S127 

P101 M103 

P127 S100 

P127 SOOO 

P001 POOO 

PI 00 M127 POOO 

P127 POOO S102 

P 1 27 M000 

POOO S 1 3 
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VII. Differential Equations 

A subroutine has been incorporated in our interpretive program 
in an effort to simplify the problem of solving simultaneous differential 
equations. The procedure used is due to S. Gill* and is essentially a 
Runge-Kutta fourth order process. To use this routine the equations 
to be solved must be of the form 

dy 4 

— - " f i<yi> y 2 ' ••• y n ; fc) 

dt 

where i=l, 2, . . . , n. The programmer stores the initial values of the 
dependent variables in consecutive locations beginning with register 827. 
The initial value of t is placed in location 849 while the increment in t, 
designated by h, is stored in register 949. (h/2 must also be placed in 
register 899. ) At the start of the program a block of storage beginning 
with register 927 is cleared and is reserved to be used by the subroutine 
to store the so-called "bridging q 1 s". The programmer then computes 
the right hand sides of the differential equations fj, fg, ..., f n and 
stores them consecutively beginning with register 877^. The instruction 

DIFEQ 002 004 

is all that is required to initiate the subroutine. The second location of 
the instruction is used to specify the number of differential equations to 
be solved. The first location specifies the entry point corresponding to 
that instruction which initiated the computation of the f s. This is needed 
because, in the Gill routine, four sub- steps are required to advance the 
integration by one time step h and the f 1 s must be recomputed for each 
of these sub- steps. This is all handled automatically by the DIFEQ 
routine. After execution of the Differential Equations instruction, the 
previous values of the dependent variables will be replaced by the new 
values corresponding to h units of time later and t will be replaced by 
t + h. 

This technique will be clarified by an example. Suppose that the 
following two differential equations together with the indicated initial 
conditions are to be solved. 

d yi d y 2 

y 2 —r = " y i 



dt " dt 

y^O) = y 2 (0) 



= 1 



* A Process for the Step-by-Step Integration of Differential Equations 
in an Automatic Digital Computing Machine , S. Gill, Proceedings of 
Cambridge Philosophical Society, Vol. 47, Part 1. 
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Taking h = 0. 2, the following program will compute five values of y, 
and y„ and punch five output cards: 



10 


P 009 




S 


927 


Set q, = 
Set q 2 = 


20 


P 009 




S 


928 


30 


P00 1 


P 00 5 






40 


P 000 




S 


94 9 


Set h = 0. 2 


50 


P D 


P 002 


S 


899 


Set h/2 = 0.1 


60 


P 00 9 




S 


849 


Set t = 


70 


P 00 9 




S 


8 27 


Set y. = 
Set y L 2 = 1 


80 


P0 01 




S 


828 


90 


RSCT 


00 1 




05 


100 01 P 828 




S 


877 


Compute f. 
Compute fi 


110 


M827 




S 


8 78 


120 


DIFEQ 


00 1 




02 


13 


P 8 4 9 




S 


82 9 


Transfer t 


14 


PUNCH 


800 






to a punch 


150 


B R C NT 


1 




01 


location 


16 


FINIS 
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AN INTEGRATED COMPUTATION SYSTEM FOR THE IBM 650 



C. K. Titus 
Westinghouse Electric Corporation 



In order to utilize fully the IBM 650 in the pursuit of general 
engineering problems, an integrated computation system has been set up 
at the Air Arm Division of the Westinghouse Electric Corporation. Such 
a set of procedures increases reliability and efficiency by standardizing 
and integrating many of the details of computation. There will always be 
a few special problems, of course, that still may best be treated on an 
individual basis. 

This system to be described is a further step in a continuing 
expansion of the use of numerical techniques to aid in the Division's 
primary task of developing, designing, and manufacturing airborne 
electronic armament. Typical problems encountered are the computation of 
fire-control pursuit courses by numerical integration and the study of 
aircraft-autopilot stability by evaluating the system characteristic 
equation and solving for its roots. The calculation of radar antenna and 
lens configurations, radar detection probabilities, and power density 
spectral analyses of experimental data are also representative problems. 

This standardization of techniques, which has been developed and 
is currently in use, has been extended to the following computation 
phases: 

1. Card Formats. 

2. Loading Routine. 

3. Program Checking Routines. 
4.. Floating-point Subroutines. 

5. Interpretive Program. 

6. Presentation of Results. 

One of the basic problems in setting up such a system for the 
IBM 650, since it is a card input and output machine, is the standard- 
ization of the card formats. The type of loading routine used governs 
the layout of the loading cards. The available word space is limited if 
columns are set aside for card identification, which is a desirable 
feature. Similarity in form between input and output cards will greatly 
facilitate punching input data directly through the computer for output 
identification. The output format must be compatible with the printing 
requirements. The cards punched by storage unloading routines should 
preferably be in the correct form for reloading. 
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Consideration of all of these aspects led to a choice of an 
"all purpose" five-word-per-card standard at the Air Arm Division. 
The details of the format are presented in Table I. This basic card 
is used for five major purposes: loading, data entry, result punching, 
storage punch-out, and identification printing. The various features 
will be discussed with the use to which they apply. 

Primary in the decision to use this format was the development 
of an individually assignable five-word-per-card loading routine. This 
technique was developed as the result of an effort to utilize the wasted 
pre-punched columns of the standard four-word routine. The program is 
essentially the same, but the fundamental difference is that the in- 
formation which formerly had to be pre-punched is emitted from the 533 
control panel. Co-selectors, picked up by an X-punch in column 11, 
channel the correct digits into the proper word-entry hubs. This wiring, 
which requires no extra features on the panel, can be devised by anyone 
familiar with IBM wiring procedures, and so is not illustrated here. 

This method allows the full use of the ten-word input of the 650. 
The five ten-digit words are read into Words 1 through 5, and the five 
corresponding four-digit location addresses, packed with appropriate 
constant information, enter Words 6 through 10. Since each of the words 
thus requires only 14- columns on the card, the loading data occupies a 
total of 70 columns, conveniently leaving ten columns for identification, 
as indicated in Table I. 

The loading routine, which requires only six words permanently 
located in storages 1994- through 1999, is presented in Table II. The 
numbers in the brackets are those which are emitted. It is to be noted 
that once the routine is on the drum, entry is through 1999, a number 
easy to remember and to set into the. console. 

In order to load this routine, the program listed in Table III, 
which is placed on two standard loading cards, can be used. The numbers 
emitted from the control panel simultaneously with the first card are 
superfluous; nevertheless zeros must be filled in the location addresses. 
The second card, however, makes full use of this information so that, in a 
sense, the loading routine loads itself. 

In standardizing on the five-word loading routine, it was felt 
that the sequential limitations of the seven- or eight-word methods 
nullify their speed advantages. In addition, an element of confusion 
is eliminated by using only one type of routine. It is believed, there- 
fore, that the five-word technique represents an optimum compromise. 

The purpose of the data-entry card, as distinguished from the 
loading card, is to allow read-in of data, under control of the program, 
during the course of a computation. For this application, the same format 
of Table I is used with the exception that the five location addresses are 
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TABLE I. IBM 650 "ALL PURPOSE" CARD FORMAT 



Columns Function 

1-6 Job number 

7-10 Card number 

7X Unconditional skip to next page 

8X Conditional skip to next page 

9X Double space 

10X Single space 

11X Loading card 

12X Title card 

13 - 52 Alphameric field, Title card 

11 - L4 Word 1, Location 
15 - 24 n Contents 
24X » Sign 

25 - 28 Word 2, Location 
29-38 n Contents 
3BI » Sign 

39-42 Word 3, Location 
43 - 52 " Contents 

52X " Sign 

53 - 56 Word 4-> Location 
57-66 " Contents 

66X » Sign 

67 - 70 Word 5, Location 
71-80 " Contents 

80X " Sign 
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TABLE II. FIVE-7KBD-PER-CARD LOADING ROUTINE 



Location 




Instruction 


Data Locations 


1999 


70 


1951 


1994 




1994 


69 


1951 


1956 


C(195D - W X 


1956 


[241 


L(Wi) 


[1995] 




1995 


69 


1952 


1957 


C(1952) = W 2 


1957 


[24] 


L(W 2 ) 


[1996] 




1996 


69 


1953 


1958 


C(1953) = W 3 


1958 


[24] 


L(W 3 ) 


[1997] 




1997 


69 


1954 


1959 


C(1954) = W/ 


1959 


[24] 


L(W/) 
1955 


[1998] 


—f 


1998 


69 


I960 


C(1955) = W 5 


I960 


[24] 


L(W 5 ) 


[1999] 





TABLE III. PROGRAM FOR PLACING LOADING ROUTINE ON THE DRUM 





Location 




Instruction 


Data 


Locations 


Console 


8000 


70 


1951 


1951 








1951 


69 


1954 


1952 


C(1954) = 


69 1951 1956 


Card #1 


1952 


24 


1994 


1955 


C(1953) - 


00 0000 0000 




1955 


70 


1951 


1994 








1994 


69 


1951 


1956 


C(195l) = 


69 1952 1957 




1956 


[24] 


1995 


[1995] 








1995 


69 


1952 


1957 


C(1952) = 


69 1953 1958 




1957 


[24] 


1996 


[1996] 






Card #2 


1996 


69 


1953 


1958 


C(1953) - 


69 1954 1959 




1958 


[24] 


1997 


[1997] 








1997 


69 


1954 


1959 


C(1954) = 


69 1995 I960 




1959 


[24] 


1998 


[1998] 








1998 


69 


1955 


I960 


C(1955) = 


70 1951 1994 




I960 


[24] 


1999 


[1999] 
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left blank. The five words enter Words 1 through 5. To be available 
for use in identification of results, the job number and card number 
columns are also wired to enter Word 6. Although it would be possible 
to read in as many as eight ten-digit words from a data card, the use of 
five was chosen as standard in order to be compatible with the result 
cards, which are restricted by printing requirements. Primarily, this 
choice eliminates a very difficult bookkeeping situation in punching 
data straight through the computer in order to have input values available 
with the corresponding output values. The data card, then, and the 
loading card, are the two methods available for entering information into 
the computer under this integrated system. 

An integrated computation system must also include routines to 
aid in program checking. One of the most important of these for the 650 
is the storage punch-out program because it allows the programmer to 
examine his problem in detail at his desk rather than to use an excessive 
amount of time at the console. Within a group just "graduated" from the 
CPC, finding errors from a storage print-out is a new concept. The 
programmers are used to checking their problem with a step-by-step detail, 
the only method available on the CPC. Consequently there is a tendency 
toward spending too much time at the console because of inefficient use 
of step-by-step procedures such as the half-cycle feature, or a tracing 
or auto-monitor routine. Such techniques, when judiciously used, can be 
very effective, but finding errors from a storage print-out is a method 
which should be assimilated for all-around efficient utilization of the 650. 

In conjunction with the storage punch-out routine, a storage-erase 
program is useful so that discrimination can be employed to punch out 
only those registers which contain significant data. For this system, 
the erase routine places 8's in all locations except those containing the 
subroutines. The choice of all 8's was based on the consideration that 
this configuration is more unique than 9's or O's. It enables one readily 
to discern, for instance, those quantities which have become zero as a 
result of the calculations. This particular routine was written so that 
it enters directly into the load routine, thus encouraging its use as a 
preliminary step to loading. 

Control of the . punch-out routine is effected by setting the data- 
address portion of the storage entry switches to the address of the first 
instruction to be punched out. Following logically, the last location to 
be punched is set on the instruction address switches. The program then 
punches out the location and contents of all storage units within these 
limits set on the console, bypassing those which contain all 8*s. In a 
manner analogous to the loading routine, the five words are punched from 
Words 1 through 5, and their location addresses from Words 6 through 10, 
making full use of the ten-word output of the 650. 

As was indicated previously, it is desirable to have the punch- 
out card format in exactly the same form as the loading card. This 
feature is very useful for "roll-back" or restart purposes. It is also 
useful for obtaining a consolidated loading deck after many changes and 
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additions have been made to a given program. Use of the Word 10 control 
information hubs and selector wiring on the control panel enables one, 
under control of the program, to punch out in the correct loading form. 

Another program checking aid, which has been briefly mentioned, 
is the tracing, or auto-monitor, routine. The purpose of such routines 
is to provide an instruction-by-instruction punch-out of the arithmetic 
details of each step. If properly used, these routines can be very 
helpful. However, for the present, use of a tracing routine at the Air 
Arm installation is being discouraged for two reasons: first, it is too 
often badly misused, resulting in inefficient computer operation} and 
second, the more general storage punch-out technique has certain advan- 
tages which should be encouraged. 

For the majority of engineering calculations at this installation, 
floating-point subroutines have been found to be almost indispensable. 
The ability to eliminate scaling considerations and thus permit extensive 
generality in programming has proven to be of considerable importance. 
Consequently the integrated system includes floating-point subroutines 
for all of the following functions which experience with the GPC has 
shown to be frequently used in aircraft armament engineering calculations. 

1 # Add 6. Exponential 

2. Subtract 7. Logarithm 

3. Multiply 8. Sine 

4. Divide 9. Cosine 

5. Square Root 10. Inverse Tangent 

It is not within the purpose of this paper to consider these 
subroutines in detail, but rather to show how they have been coordinated 
with the system. In particular, because the 650 is a relatively medium- 
size machine on the scale of present-day computers, it is important to 
have calling sequences which are efficient in computing time and storage 
space. Yet, flexibility is desirable also, in the form of being able to 
call factors from any location, and to return to any location. As a 
result of considering these requirements, a system of calling se- 
quences listed in Table IV was evolved. There are two fundamental types, 
corresponding to one- and two-operand routines, respectively. Although 
these calling sequences were devised specifically for floating-point 
subroutines, their use is obviously not confined to this application. 
The same forms would be used for any type of one- or two-operand sub- 
routines . 

Return from the subroutines is made by storing the next in- 
struction in a location (1875) which each subroutine refers to for its 
last instruction. For two operands, the storage of the next instruction 
must be done during the calling sequence; but for the one-operand type, 
it is done within the individual routine. The results of all subroutines 
are placed in the lower accumulator. Thus, for continuing calculations, 
the RAL or RSL instruction can often be omitted, shortening the calling 
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TABLE IV. FLOATING-POINT CALLING SEQUENCES 
Two Operand Type 



General 


Form: 












Location 




: 


Instruction 






OP 




DA 


IA 




*1 


LD 




1875 


*2 




<*2 


STD 




<K 5 




<X.-i 







L(B) 


*i 




*U 


LD 




L(A) 


T 




*5 


Next 


Instruction 




Specific Data: 












Operation 






<? 


r 




A + B 






RAL 


1850 




A - B 






RSL 


1850 




A x B 






RAL 


1900 




A x (-B) 






RSL 


1900 




A / B 






RAL 


1950 




A / (-B) 






RSL 


1950 




Arc Tan A/B 






RAL 


1600 




Arc Tan A/(-B) 




RSL 


1600 


One-Operand Type 












General 


Form: 












location 




] 


[nstruction 






OP 




DA 


IA 




*1 


? 




L(A) 


2 




*2 


LD 




°< >> 


y 




*3 


Next Instruction 




Specific Data: 












Operation 






9 


Y 




vr 


(A* 


o) 


RAL 


1800 




V^A 


(A* 


o) 


RSL 


1800 




eA 






RAL 


1650 




e"* 






RSL 


1650 




Ln A 


(A^> 


o) 


RAL 


1550 




Ln (-A) 


(A< 


o) 


RSL 


1550 




Sine A 






RAL 


1750 


11 


Sine (-A) 






RSL 


1750 




Cosine A 






RAL 


1700 




Cosine (-A) 






RSL 


1700 
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sequence accordingly. Other arrangements of the two-operand calling 
sequence are also possible. The inverse tangent function was written 
as a two-operand routine in order to allow placement of the angle in the 
correct quadrant, within the range to 2-7/ . Even if the factor M B" is 
zero the routine gives the correct answer. 

Another important floating-point routine concept that should be 
standardized is that of providing automatic stops for operations that are 
invalid. For the routines listed, stops have been provided for all the 
following improper calculations t 

1. Exceeding radix bounds on any operation. 

2. Division by zero. 

3. Square root of a negative number. 

U. Logarithm of a negative number, or zero. 

5. Exceeding angular argument bounds on sine or cosine. 

The stops are purposely coded to be of the improper storage-selection 
type so that they cannot be bypassed. Each is numerically coded so that 
the source of trouble can readily be determined. A further standardi- 
zation that has been incorporated is the location of each subroutine 
within a certain band on the drum. Thus, if storage space becomes critical, 
omitting those routines which are not needed will free complete blocks of 
instructions for other use. All of these described features have made this 
floating-point system one which has proven very satisfactory. 

In order to facilitate programming, it is often desirable to 
formulate an interpretive program. Such a program was prepared for the 
650 to work in conjunction with the floating-point routines. After 
considerable study of the possibilities, it was found that the best 
program technique seems to be one wherein the calling sequences, as 
presented previously, are built up from the information furnished by the 
interpretive instructions . 

The system was kept simple by standardizing on a two-address code 
for every operation. Thus for two operands the addresses specify the 
location of "A" and "B"; and storage in "G", when desired, is accomplished 
by a separate transfer instruction. For one operand the addresses specify 
"A" and L "C tt , and thus the extra store instruction is not necessary. In 
addition, the results of each operation are always placed in 0000, where 
they can be called out for the next arithmetic operation, or for permanent 
storage in the case of two operands. 

Under this particular system only three extra interpretive in- 
structions were added, to the ten mathematical functions. These are the 
transfer, the branch- on-minus (BRMIN), and the branch-on-non-zero (BRNZ) 
instructions. Several useful features are provided in this system, such 
as the ability to punch out a step-by-step detail through setting the 
console to minus. In addition, by requiring that interpretive instructions 
be negative, transfer to regular 650 operation can be effected by changing 
to a positive instruction. 
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However, a detailed description of this program is not warranted, 
because experience with it has not been satisfactory for two major reasons. 
First, interpretation increases calculation time about 50 percent, as 
compared with calling-sequence programming. Second, since one still has to 
fall back to straight 650 programming for many bookkeeping operations, the 
system offers little advantage over calling-sequence coding. Adding more 
interpretive bookkeeping instructions might improve this situation, but 
would use too much storage and further slow the calculations. As a result, 
the interpretive program has been more or less discarded. 

Since the methods for entering data into the 650, checking pro- 
grams, and proceeding with engineering calculations have been discussed, 
the final phase of presentation of the results remains to be considered. 
The philosophy adopted for this phase has been that an answer is often 
no better than its final printed form. Results from a simple calculation 
presented neatly and well identified can be more impressive than weighty 
computations poorly marked and printed in haphazard fashion. Of course, 
this philosophy can be carried to such an extreme that it interferes with 
system operation, but much can be done before approaching this limit. 

Experience with the CPC has shown that printing results on 
standard 8-1/2 by 11 sheets has marked advantages. It allows results to 
be conveniently assembled in a standard three-ring binder for easy 
consultation, and to be included directly, or in a one-to-one reproduced 
form, in standard size reports. The sheets do not become dog-eared or 
torn, or even lost, because they do not fit with other material. Conse- 
quently, this goal was set for the 650, and was attained by using standard 
tabulating forms which allow printing sidewise on 8-1/2 by 11 sheets. The 
eleven-inch width conveniently allows printing of the four-digit card 
number and five ten-digit words across one line. While it is true that a 
wider form would permit up to seven words per line, the advantage of the 
standard size outweighs the occasional advantage of seven words. Printing 
of the card number with each line provides a ready check on the order of 
the cards. 

Since the output of the 650 under this system is standardized at 
five words per card, the format of the result card can be made compatible 
with all card forms, resulting in the "all purpose" form presented in 
Table I. The five output words are punched from Words 1 through 5 into 
the five word-content fields on the card. A six-digit job number and a 
four-digit card number are punched from Word 6. Punching of the card 
number, or some other sequential information, is particularly important 
with card output, so that if the cards get out of order before printing 
they can easily be restored. From Word 10, control information in the 
form of 8's placed in the proper locations by the program, causes X-punches 
to be placed above the card number, for printing controls. This feature 
permits direct control of the 402 printing by the 650 program. 

In order to extend the idea of well-identified results, the full 
alphameric features of the tabulator are employed. Provision for printing 
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titles and headings along with numerical results, without changing con- 
trol panels, is made by the use of extensive selector wiring. For 
instance, under this system, an X-punch in column 12 causes the next card 
to be interpreted as a title card. The one-cycle delay is required in 
order to be able to select zone impulses. 

Spacing and skipping controls on the tabulator provide further 
refinements in the printed output. By means of the X-punches above the 
card number, the following four features can be controlled: 

1. Unconditional skip to next page. 

2. Conditional skip to next page. 

3. Double spacing. 

4. Single spacing. 

The conditional skip occurs only when printing is within a certain distance 
from the bottom of the page, as determined by the carriage tape. This 
feature is very useful to cause skipping only after a group of results 
has been completely printed. These four controls, then, permit a con- 
siderable flexibility in the form of the printed results. 

For the purpose of printing storage punch-out cards, a separate 
4.02 control panel is required, in order to tabulate the storage location 
as well as its contents. The programmer is thus provided with an easy-to- 
read listing of the location and contents of each of the storage units 
punched out. Wide paper must be used to allow room for the extra in- 
formation printed, but since such tabulations are usually destroyed once 
the program is working, the former objections concerning paper size do not 
apply. 

With this description of the printed output standards, the 
discussion of an integrated computation system for the IBM 650 is complete. 
Techniques applicable to every phase of the use of this computer in 
engineering calculations have been presented. Ideas for card formats, 
loading routines, program checking aids, floating-point subroutines, 
interpretive programs, and final presentation of results have all been 
considered. The system is currently in use at the Westinghouse Air Arm 
Division. It is hoped that this discussion will be of benefit to 
personnel of similar IBM 650 installations. 
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DATAMATIC CORPORATION LIBRARY ROUTINES FOR THE 650 

R. F. Clippinger and E. E. Comerford 
Datamatic Corporation 



Datamatic Corporation operates a rather unusual computing 
service which programs, codes and solves a variety of problems coming 
from any source. Consequently it has been forced to create a library of 
routines to make it easy to locate routines in the 650, weed out coding errors, 
watch the growth of errors and minimize the time to solve a problem. 

Subroutines, directory and assembly program. As a method of 
organizing the use of subroutines we have chosen that outline used by the group 
with Turing of Manchester. A directory defines where each routine will be 
placed in the machine. The assembly routine uses the directory to modify 
the orders as they are read in so that they will work wherever placed. A 
routine changing sequence is used to pass from one routine to another and 
keep track, by means of a link list, of the current status of the problem. A 
word D. = 0<*.fl. is associated with each subroutine S-.c*. is the data address 
and 6. is the instruction address. When the coder writes his code, he marks 
some addresses by adding 4000 to the relative address (the relative address 
is the address that would be used if the subroutine began in register 0). He 
may mark other addresses by adding 2000 to the relative address. The input 
routine then removes the marker and adds & if the marker was 4000 and ^ . 
if the marker was 2000. Consequently, by changing the single word D. one can 
move the subroutine to an arbitrary position in the machine and one can move 
its working space to an entirely different arbitrary spot in the machine. If 
two or three people who are trouble shooting problems are sharing the use of 
the machine, they can adjust their directories so as to avoid conflict and not 
have to read-in their problems each time. Trouble-shooting routines, to be 
described later, will make it possible for each of them to get several periods 
of use of the machine within an hour. 

The passage from one routine to a subroutine is affected by an 
order in register S which loads the distributor with the contents of S + 1 and 
transfers control to the routine changing sequence. The word in S + 1 has been 
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called by the Manchester group a False Line. As written by the coder it is 
in the form 88 D.R, where R is the relative entry point. D. defines which 
subroutine is to be entered, and since the subroutine may do different things 
depending on where it is entered, the relative entry determines what it 
accomplishes. 

At the time of reading the problem into the machine the assembly 
routine deletes the 88, looks up the directory, adds (3 1 to the relative entry 
and creates the true entry. At the same time it uses the information that it 
has concerning the location of the false line to create a return address so 
that the false line in the machine is in the form 00, return point, true entry 
to subroutine. 

When the problem is being executed, the Routine Changing Sequence 
uses the false line to create a link in a link list for later transfer of control 
to the return point. If the subroutine requires parameters, they are placed 
following the false line in positions S + 3, S + 4, etc. 8 parameters may be 
used. The Routine Changing Sequence moves these parameters to registers 
1 through 8, if the false line is negative. It then enters the subroutine. 

On leaving the subroutine one simply goes to a different point 
in the Routine Changing Sequence which uses the link list to return to the 
proper place. At any time in the course of a problem one can tell which 
subroutine he is in by examining the link list. Since the 650 keeps track 
only of the order it is trying to execute and not the order that was done before 
that, any derail leaves one in the embarrassing spot of not knowing where he 
was. Under these circumstances, the link list is quite a help aided by the 
state of the bound variables associated with the subroutines. 

The assembly routine in addition to modifying addresses and 
false lines creates a check sum for the routine being read in and compares it 
with the check sum on an input card. Information being entered into the 
machine by the assembly routine is preceded by a descriptive card which 
gives the check sum, the directory number and tells how many orders and 
numbers are to be inserted. Each card gives the relative address of the 
second word on the card and how many words are to be put away. The 7 
remaining words are useful words to be inserted into the machine. The 
assembly program has been force programmed (that is optimum programmed) 
so that the entire machine can be loaded in 2. 8 minutes. If the same routine 
is to be used many times, it can be assembled once, read out by our post 
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mortem routine and after that read in, using absolute addresses. In this 
case, the machine can be loaded in 1. 5 minutes. 

Trouble shooting routines . Stop and Punch. Stop and punch is 
similar to codes available on other computers. The function of stop and punch 
is to enable one to find out what is going on in the execution of the problem. 
In using stop and punch the coder prepares a set of words of the form 
A i B i N i' whicn are tyP ed in successive word positions on successive cards. 
A stop and punch marking routine will use these descriptive cards to plant 
derails at A^ and store the information B. N.. When the problem is executed 
the result will be that every time the control arrives at A., N. words will be 
printed starting at B . . The derails that were planted by the marking routine 
can be removed by entering stop and punch at a different point. This routine 
can be used in many ways. The first time a problem is run in the trouble- 
shooting process a set of descriptive cards will make it print out key quantities 
which enable one to deduce if certain segments of the code are correct. 
Having corrected the coding errors that have been discovered, a second set 
of stop and punch descriptive cards will enable one to punch out further 
information to check whether the corrections have cleared up all the 
difficulties. Printing associated with correct portions of code can thus be 
by-passed. The program is not executed interpretively; consequently, it is 
not slowed down very much by this trouble shooting mechanism. 

A second use for stop and punch is for problem analysis. It may 
be that a code is correct in the sense that it does what one asked it to do but 
one may not have been sure how the numbers would behave. For example, 
in solving a non-linear differential equation it is difficult to predict the growth 
of the numbers. Without the use of stop and punch it is awkward to provide 
for all printing which would be useful in this regard. And, in fact, one 
cannot always predict what quantities one will want to see. With stop and 
punch one can control the output of the computers with a twist of the wrist, 
and this brings us to the third use of stop and punch. After one has complete 
understanding of a problem, the code is correct, and one knows how the 
numbers behave, he may still decide on a different output from what he had 
originally planned. Stop and punch makes this possible without elaborate code 
changes. 

A Generalized Monitoring Routine. An interpretive program 
used throughout the computing industry to locate trouble in desperate situations 
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is known as a monitoring or tracing routine. Such a routine prints out what 
each order does every time the order is executed. The result is a wealth 
of information which enables one to find any errors. However, it is extremely 
wasteful since it is very slow. It is particularly wasteful on a machine like the 
701 but it is bad enough on the 650. A simple generalization used in many 
places consists of marking some of the orders so that one only prints out what 
these orders do. However, it is usually not very important to see the results 
of a specific order over and over as one goes around a loop. Such tracing 
routines are therefore not very useful. 

About eight years ago at the Computing Laboratory at Aberdeen 
Proving Ground one of the authors introduced a different generalization, 
which we call the code checker. The code checker prints out what every order 
does the first time it comes to the order and never again. It is therefore much 
faster than the tracing routine and much more economical of the programmer's 
time in looking through the output. We have such a code checker for the 650. 
The specific code checker that we have written for the 650 is used as follows: 
The coder prepares descriptive cards containing words in the form OCjN. € i 
or 80 D. 0€.. A code checker marking routine uses these descriptive cards 
to mark N. orders starting at register C. or the false line at D^ If € ^ is minus 
marks are inserted; if it is plus, marks are removed. One then inserts the 
address of the first order in its program into a certain register and enters the 
code checker, which then prints out for every marked order the address of the 
order, the order, and the contents of the distributor and lower and upper 
accumulators. If a false line is marked, the corresponding subroutine is also 
code checked. If it is not marked, the subroutine is executed at full speed 
and the routine changing sequence derails the problem back into the code 
checker upon return from the subroutine. It is thus a simple matter to code 
check any part of a problem which is causing trouble and not code check the 
rest of it. These two trouble shooting routines give great flexibility and 
enable one to trouble shoot problems using a minimum of 650 times. For 650 
users having many different uses for the machine such routines are quite 
important. 

Automatic optimum programming . For problems involving 
considerably more computer time than reading or punch time the 650 can be 
made to go roughly twice as fast by placing the orders in the right position. 
This can be done manually. George Trimble has prepared cards as aids to the 
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optimum programmer which many of you are using for this purpose . An 
expert like George Trimble can perform this manual optimum programming 
nearly as fast as random programming. For the rest of us it is handy to 
make the 650 do it. Consequently, E. E. Comerford has written an optimum 
programming routine which will force code a routine using 350 registers in 
about 10 minutes. Using this routine, we are able to give our customers 
more answers per dollar. 

Our optimum programming routine is built around our assembly 
program and structure of subroutines. One recognizes five different kinds of 
words: numbers, ordinary orders, orders whose instruction address is made 
up, orders whose data address is made up and false lines. To use the optimum 
programming routine, one simply prepares descriptive cards which determine 
how many of each class of words there are. A second kind of descriptive card 
determines how many registers are to be used by the optimum programming 
routine and which pieces of the code are to be improved first. The pieces 
which are programmed first are programmed best because they have the 
widest choice of registers. Also, the constants which are common to more 
than one order are allocated for optimum timing in the first order in which 
they appear. Consequently, one can speed up the inner loop of a multiple loop 
induction by improving it before other sections of the program. 
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AN AUTOMATIC METHOD OF OPTIMUM PROGRAMMING 
FOR THE 650 USING THE 650 



Elmer F. Shepherd 
John Hancock Mutual Life Insurance Company 

Optimum or minimum latency coding i3 a technique whereby data or 
instructions are assigned drum locations in such a manner as to mini- 
mize access time. 

Optimum programming is accomplished manually by reference to an 
optimum program table. This provides increments, based on the word 
time required to carry out operations, to add to an address to deter- 
mine the module of the next address. For instance, in order to deter- 
mine where to locate a data address it is first necessary to determine 
whether the location of instruction address is an odd or even number. 
Reference is then made to a table by operation code and the increment 
found is added to the location of instruction. With the module thus 
formed, an array of all available locations of this module is consulted, 
one selected, checked off and used as the data address. The instruction 
address is determined in like manner. The manual technique accomplishes 
coding one line at a time. The determination of the necessary repeti- 
tive use of the same address (constants interim storage or branching) is 
accomplished visually. Certain addresses, for read in words, punch 
words table locations, distributions, etc., are, of course, specifically 
assigned before coding is begun. The manual method is a slow process 
exposed to large error. 

Once coding has been accomplished, a deck of load cards is key 
punched showing in each card the location of instruction or data and 
the instruction or data. 

The manual method, then makes use of the following elements. 

1 . Specific assignment of address in advance. 

2. Table look up to determine module. 

3. Consultation of an array for the determination of arbitrary 
assignments. 

4. Scanning or cross reference for necessary repetitive use of 
previously assigned addresses. 

In the machine method described here the same elements are pre- 
sent. 

Necessarily, specific addresses are coded as usual. 

An optimum increment table is provided and stored in locations of 
the 0950 band. 

By storing two drum locations in each word, an array of all 2000 
locations can be stored in 1000 words. All addresses of one module 
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may be stored in 20 consecutive drum locations. Drum locations 1000 
to 1999 are reserved for the entire array. Any locations not available 
for a particular program are stored as zeros. This is accomplished by 
first storing zeros in locations 1000 to 1999 (two load cards required) 
and then selecting from a 2000 card load deck representing all locations, 
the ones available for the particular program being made optimum. 

The operation portion of an instruction is coded normally. In 
order to accomplish cross reference pseudo addresses consisting of the 
9000 series are used. A 9000 series address causes the machine to 
select the best normal address available and store it in the drum loca- 
tion specified by the three low order positions of the pseudo address 
if such drum location contains zeros, or to recall the address stored 
there if such drum location does not contain zeros. Drum locations 
0100 to 0699 and 0000 are reserved for this purpose and are filled 
with zeros, by two load cards, at the start of the process. Locations 
0100 to 0699 provide 600 numbers for cross reference. A program may 
be of considerable length, but since the instruction address of one 
instruction is most frequently the drum location of the next following 
instruction (as written) and this is the only cross reference, drum 
location 0000 is assigned for the store and recall sequence, and is 
filled with zeros after each recall. This diminishes the need to use 
0100 to 0699 locations. As addresses are selected from the array in 
1000 to 1999, they are replaced with zeros. 

In the case of 800X addresses, equivalent drum locations must be 
calculated to proceed to build the next following address module. 
However, it is seldom necessary to carry such equivalent to the next 
instruction since an 800X referred to instruction would most frequently 
contain a normal data address. Drum locations 0001 to 0099 are pro- 
vided for storage and recall of equivalent 800X addresses if needed 
and the two low orders of such addresses replace the two middle digits 
of the 800X address. There is no objection to using 01 to 99 to expand 
the 600 locations available, if not used for their reserved purpose. 

Since the arbitrary assignment of a data address by a 9100 to 9699 
code is the location address of data, the location addresses of data 
can be recalled. Data can be any constant, interim storage or dummy 
instruction. It is necessary to provide two recognition punches to 
differentiate between programmed instructions and data. One such punch 
indicates that the data address positions are to remain unchanged and 
the other indicates that the instruction address portion is to remain 
unchanged. For example - a constant or the segment of a dummy instruc- 
tion which is not subject to change during the program. By use of 9000 
series codes and the absence of these punches previously determined 
address portions of dummy instructions can be recalled. 

Having accomplished the coding, a deck of cards is prepared from 
the code sheets. The machine is loaded to carry out the required 
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instructions to optimum program. The code deck is run with constants 
at the end and a load deck for the problem is produced. It is possible 
to feed the code deck in any desired block sequence as long as cro3s 
reference addresses are suitably adjusted. 

It is believed that this method is adaptable to the majority of 
situations that will arise. It has the element of simplicity and is as 
easy to use as sequential coding and in addition to saving time, elim- 
inates many of the hazards inherent in manual optimum coding. 



RULES for USING PSEUDO CODE 



I . A normal address is required as the drum location of the 
first instruction. 



2. Normal addresses may still be used where desired. 



3. All arbitrary assigned data is referred to as 9100 to 
9699. 



4. 9000 may be used as the instruction address, or data 
address if branch operation, whenever the next instruc- 
tion referred to follows immediately in which case the 
drum location of the following instruction is 9000. The 
foregoing is, provided there is no other cross reference 
to the latter instruction, 9100 to 9699 being required 
in such case. 



5. 800X are used normally, the only exception being when 
the equivalent is required on a subsequent instruction, 
in which case 80 IX to 899X are used. 
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AUTOMATIC OPTIMUM PROGRAM 



OPERATING PROCEDURE 



I. A program is written in pseudo coding. Punching is done in 
the following manner (no "R" punches necessary): - 



Program Code = 


Col. 


1 (also "X" if location is 
8000 type) 


69 0004 0003 




11-20 


24 




21-22 


8000 




27-30 


Segment codes «= 




41-42 


Punch page number » 




43-45 


Pseudo drum location - 




47-50 


Pseudo inst. or Data = 




51-60 



II. A pre-punched card with program type code in col. I, block 
number in cols. 2-4 and an "R" punch in col. 44 is manually 
placed in front of each program block. 

Constants and interim storage constitute the last two blocks, 



III. Four instruction cards can be fed into the 650, and the words 
1000 to 1999 which are to contain the addresses of available 
locations (two to a word) and 0100 to 699 for reference 
location storage - cleared to zeros. 



IV. There exists a deck of 2000 cards each one of which represents 
a location from 0000 to 1999 to be made available for locations 
of Optimum programming. 

From this deck will be manually extracted cards for locations 
that are to be us 3d for: 

1 . Read words 

2. Punch words 

3 . Tables 

4. Distributions 
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5. Constants with normal code3 assigned. 

6. Interim storage with normal code3 assigned 

7. Regular instructions with normal codes assigned 

8. Where possible the 1950 band (or a band) for the storage 
of a trace routine 

The remainder represents available location words and are 
loaded to fill in the words (or parts of words) 1000 to 1999 
to be available for Optimum Programming. 



V. A single load card contains the instruction necessary to cause 
the 650 to punch out cards for locations still available after 
new optimum coded load deck has been produced. 



VI. Cards are fed into the 650 in this order: 

1 . Optimum program load cards . 

2. Zero restore cards from step III. 

3. Available location cards from step IV. 

4. Program detail cards from steps I and II. 

5. Remaining available location card from step V. 



VII. Optimum coded load deck produced: 
Program Code 

Block Number 

Item 

69 0004- 0003 

24 

Optimum drum location 

8000 

Optimum instructions or data 

Segment codes (if used) 

Pseudo drum location 



Cols. I (X also for 8000 
type locations) 

2- 4 

5- 7 

11-20 (R in 20) 
21-22 
23-26 

27-30 (R in 30) 
31-40 (R in 40) 
41-42 
47-50 
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Pseudo instruction or data Cola. 51-60 

(Note that the pseudo code3 are preserved to make corrections 
or changes, it is only necessary to change the pseudo coding 
and run the deck again for a new deck of optimum coded load 
card3 . ) 



VIII. Cards with available locations after optimum coding are 
produced for reference and use. 
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OPTIMUM PROGRAMING for I.B.M. 650 USING THE 650 











Read Words 








0901 




C 

a 

e 


Block 
Number 




0902 


6 


9 


X 


X 


X 


X 


X 


X 


X X 


0903 




2 


4 


8 








0904 




Drum 
Location 


0905 


1 Oper- 
ation 
1 Code 


0906 




Data 
Address 


0907 




Instruction 
Address 


0908 




8 


8 


8 


8 8 




X Col. 1 Code 








R Col. 44 Block 


No. 


R Col. 43 Modify D.I 


. 


R Col. 41 D.A. segment 
of constant 


; 


R Col. 42 I. A. segment of 
constant 



Punch Words 



0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 





c 



d 
e 


Block 

Number 


Item 
Number 


6 


9 


X 


X 


X 


T 


X 


X 


X 


X 




2 


4 


8 













Developed 

Drum 
. Location 




Oper- 
ation 
Code 




Developed 

Data 
Address 




Developed 

Instruction 

Address 




Content of 
(0904) 


- Contents 
(D905) of (0906) 


Contents of 
(0907) 




Contents of 
(0908) 



DEVELOPHKNT of DRUM LOCATION 



Read 



12. 



Store 
word as 
Base #1 



v/jjiock Number 
^. Card? 



>®-<SglD— ® 



Store 

Block 

Number 



II 



Call 
out wordL 
referred 
to 



A5- 



Store word 

in (0730) 

and as 

Base #1 



16 -V 



<- 



Store zero 

in 

(0000) 



5 

Increase - 

Decrease 

Data Address 

by I 



-)( Is Drum Loe 



8000? 



> 



10 



Store 800X 
in (0730) 
Extract Re£ 
#1 Address 



-©-<? 



1 



Drum Loc 
8XIX? 



D 



14 



Call 

out word 

referred 

to 



J 3 - 



Extract 
Ref. #1 
Address 



w 

A 



m 
cs 

<D 

O 

to 
o 

(0 
H 






$ 



Store Drum 

Loc. in 

(0730 ) 
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Block No. 6 not shown 



OPTIMUM PROGRAMING FOR I.B.M. 650 
DEVELOPMENT of DATA ADDRESS and INSTRUCTION ADDRESS 
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< 



"L 1.0906.1 
segment? 



>® 



IS 19 Extract 



22. 



22 



-e 



Store 

(0906) in 

(0733) and 

t» Base #2 



22- 



Fora 
Base #2 



ZL 



J 



21 



Address 



Store 800X 
in (0733) 
Extr&ct Rat 
#2 Address 



23. ^ 



Call out 

word 

referred 

to 



Call out 

and 

isolate 

increment 




2* 



/QL__/were contents^ 
*& V zero? J 



I [52 



?P- 



Increase 

Base f 



31 



3i_ik 



Call out 

word 
specified 



36 



34 >y 

/are positions^ 

V5 to 10 zero2 / 






Increase 

Module 

Address 

by I 



Not zero 

Base #2 

replace 

with zeros 



40 



s'Ref. & ' 
ress zero? 



<4 



37 yy 

Does Address^ 



Coes Address^ — /t£V- * 
■ 2000? J VS^ 



il£- 



38 



Store 

Base #2 

in Ref. #2 

Address 



Substitutt 

(000 

for Moduli 

Address 



< 



25 -V 



(0906) 
XXX? 



42 



g 



> 



Store 

contents 

as 

Base #2 



Store 

Base #2 

in 
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Store Bal. 

of read 
words for 

punching 



54 



Punch 




Transfer 



45 46 .. — .... 

^ 40 BranchT) ©— * ( 90 Branch? ) (No) — =» BaB " * 2 

-— £aaa4L 



5P_ 



Store 

2 (0906) 

& Base ft 

as Base #1 



■51 S/ . 

Store (0907) 

in (0906) 

(0733) in 

10732) 



-K 



52 

is (0907, 
segment? 



> 



OPTIMUM PROGRAMING for I.B.M. 650 ROUTINE TO PUNCH UNUSED LOCATIONS 




-.re aero 
n Punch 
locations 
except 28- 
~ ~-?9 



J2: 



56- 



Ist Address 

0999 
lot Count 

1001 



SL 



Increase 

J Address &. 

Decrease 

Count by I 



51 

Store 
Address 
& Count 



58 



Does Counti 
- zero? J 



51 1 s 

v/ ara positions^. 
\. I to 4- zerov*^ 



62. 



Store 
positions . 
not zero ^ 
in 0730) 



62__i| 



Punch 



ft & 



Replace 

(8003) 

with zero 



60 



are positions^ 
to 10 zero?/ 



§2. 



Call word 
specified 









Sample 


Table 










Ar, 


tuaent 


DARinetkn 


IA Function 


0955 





2 I 








5 











3 




Odd 
| 


te 


JL 


.2. 


J. 


JL 








4 


0973 


Hi 







Sample 


Array (M 


odu 


le 


47) 












Drum Loc. 


Drum Loc. 


r94i 





1 


4 


7 





1 


9 


7 


1942 











2 


4 


7 


0j 


2 


9 


7 
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c 



Flan 
New Problem 



c 



) 



Pseudo Code 



3 



Code 
Sheets 



(a 



Insert . ^ 
ode # Carda/ 



( Key P«Khj_ 



Conatant 



Instruction 



'Instruction | 
"Pseudo-coded 
deck, I card 
I per, Inatruction 



Inatruc 



c 



Assemble 



z 



D 



IV 



L 



/JOOO to 1999 m . 



II 



Fill I 
0000 to 0699 1_J 
with aero 




201 
cards avail- 
able locations 



Fill with «ero cards, available 
locations cards, instruction 
deck, pseudo code deck 
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A NOTE ON OPTIMUM PROGRAMMING AND THE IBM 
TYPE 650 OPERATION CODE USAGE 



Dura W. Sweeney 
International Business Machines Corporation 



As a part of the continuing analysis of the IBM Type 
650 questions arose as to the relative usage of the various 
operation codes and the effect of optimum programming 
in achieving significant increases in computing speed. 

An answer to the first question was gained by 
tracing several programs and counting the various 
operation codes executed by the computor in processing 
these programs. Since a limited amount of machine 
time was available only ten programs were traced. 
These were chosen so that each was written by a 
different coder to eliminate any bias in the habits 
of the coder as to his preference for using certain 
operation codes. The programs were also chosen to 
cover a wide range of applications in the commercial, 
engineering, and scientific fields to eliminate any 
bias in the needs of a program for certain operation 
codes in a particular application. Approximately three 
million executed operations were traced. The following 
table shows the results of this investigation: 

Operation $ Used 



Multiply 


4.7 


Divide 


1.9 


Shift 


11.5 


Store 


22.8 


Branch 


8.0 


Add 


49.7 


Table Look-Up 


0.8 


Read 


0.3 


Punch 


0.3 
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These percentages do not Include the instruction 
executions necessary to load the program. The only 
input-output traced was the reading of data required 
for the calculation and the punched results. 

Now using these figures and the times required 
to execute these instructions for both serial coding 
and optimum coding, an estimate for the average oper- 
ation time can be made. Assume an average six digit 
multiplier and quotient and an average shift of four 
positions . 

For serial coding there will be an average of 24.5 
word times for access to either the data or the next 
instruction. Both of these access times are taken only 
in the case of store and add operations, and since add 
operations have some parallel compute time even this 
is reduced three word times. The following table 
gives the average number of word times to execute 
the operations. 



Operation 


Percent 


Optimum 


Serl 


Multiply 


4.7 


77.5 


77-5 


Divide 


1*9 


117.5 


U7.5 


Shift 


11.5 


10.5 


10.5 


Store 


22.8 


7.5 


7.5 


Branch 


8.0 


4.0 


4.0 


Add 


?3-7. 


7.5 


7.5 



+ 
+ 

+ 
+ 
+ 
+ 



24.5 
24.5 
24.5 
49.0 

24.5 
46.0 



By crossmultiplying columns one and two and one and 
three and dividing each by 98.6 the following times 
result. 



Optimum Coding; 
Serial Codings 



13.0 word times (1.25 ms) per operation. 
53.8 word times (5.17 ms) per operation. 



This gives a ratio of SjU. or 4.1 times as fast for 
optimum coding over serial 1« 2 5 coding. 

Considering that data and instructions cannot always 
be located in the best optimum locations, the next question 
that arose was what had been or could be achieved. The 
matrix inversion program written by R.W. DeSio was traced 
during the inversion of a 10x10 matrix. This program uses 
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the interpretive floating point routines described in 
Technical Newsletter #8 for floating point operations 
and serial coding for the manipulation of the addresses 
of the matrix elements. The program required the 
execution of 154,000 instructions in 278 seconds. 
This gives an average operation time of 1.81 ms. 

Next a program was written to do matrix inversion 
by the same method but the address arithmetic was 
coded optimumly and the floating point operations were 
included directly in the routine so that no interpretation 
time was required. This program was traced during the 
inversion of the same 10x10 matrix. Here, 49,000 in- 
structions were executed in 71 seconds giving an average 
operation time of 1.45 ms. This program required 3300 
accesses to get or store the matrix elements in a 110 
position serial array in drum storage. 

It appears obvious then that optimum coding can 
give significant increases in speed. The first matrix 
inversion program gives a ratio of 5.17 or 2.9 times 
faster than serial coding. The 1.81 second program 
gives a ratio of li^X or 3.6 times faster than serial 
coding. Prom !»45 the figures for optimum coding 
versus serial coding, the ratio of 4.1 compared to 
the ratio of 3.6, for the matrix inversion program, 
indicates that in spite of the large number of accesses 
to serially stored data a speed increase very close to 
the maximum may be achieved. 
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AUTOMATIC FLOATING DECIMAL ARITHMETIC IN THE IBM 

TYPE 650 



George R. Trimble, Jr. and Dura W. Sweeney 
International Business Machines Corporation 



The present operations of the IBM Type 650 have proven 
to be satisfactory for the great majority of problems which 
it has solved. There are, however, many problems involving 
lengthy, complex calculations which require extensive analysis 
to determine the size and range of intermediate and final 
quantities . This analysis and the subsequent scaling of 
these quantities frequently requires a larger percentage 
of the total time required to solve the problem than the 
actual calculations . 

Floating decimal arithmetic circumvents this difficulty 
by tagging each number with a 2 digit characteristic. This 
characteristic specifies where the decimal point should be. 
Use of this technique virtually eliminates the need for scaling 
numbers mentioned above. 

Floating decimal numbers in the 650 look exactly like 
fixed point numbers. The only difference between them is 
the way in which the arithmetic unit interprets them when 
a floating decimal operation is called for. Seven new in- 
structions have been added to operate upon floating decimal 
numbers. They are add, subtract, add absolute, subtract 
absolute, multiply, divide and non-normalize add. Whenever 
one of these operations is called for the numbers operated 
upon are interpreted as follows: 

(M, C)= .xxxxxxxx xx + 

M C Sign 

of M 

The mantissa, M, is eight decimal digits in length. The 
decimal point of the mantissa lies to the left of the eighth 
digit. The sign of the number is always associated with the 
mantissa. Thus the range of the mantissa is 

0.1^M<1.0 
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The exponent, e, is a two digit integer in the range 
-50 ^ e ^ 49 

Since the sign is associated with the mantissa it cannot 
be used to indicate the exponent sign. By adding 50 to the 
exponent, a positive number, C, in the range 

£ C= e + 50 £ 99 

is obtained. It is the two digit characteristic C that is 
carried as a tag to specify where the decimal point of the 
number really is . 

To summarize then, the fixed point number, N, being 
represented by the floating point number (M,C) is determined 
by 

N - M x 10 C " 50, 

For example: 1.0 would be represented as 1000000051 . 

Since there is no difference between fixed and floating 
decimal numbers, fixed point operations can be performed upon 
floating decimal numbers if desired. For example, it is 
possible to test the floating point number to determine 
whether it is zero or non-zero; positive or negative. It 
is simply up to the programmer to determine what he wishes 
to do and to write the proper sequence of instructions to 
perform that operation. Similarly the characteristic can be 
separated from the mantissa by shifting and examined. It can 
be modified by programming, or whatever else is desired can 
be done. This facility of operating upon numbers with either 
type of arithmetic provides great flexibility. 

The following descriptions tell how each of the seven 
new instructions function. Any operation which results in a 
zero mantissa will force a zero exponent. 

32, FA Floating Add. 

The floating decimal number specified by the data address 
is added to the floating decimal number in the upper accumu- 
lator. The rounded result will be retained in the upper accumu- 
lator. The lower accumulator is ignored for this operation 
and will contain zeros after its completion. 

33, FS Floating Subtract. 

The floating decimal number specified by the data address 
is subtracted from the floating decimal number in the upper 
accumulator. The rounded result will be retained in the upper 
accumulator. The lower accumulator is ignored for this oper- 
ation and will contain zero after its .completion. 
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34, ED, Floating Divide. 

The floating decimal number in the upper accumulator 
is divided by the floating decimal number specified by the 
data address. The rounded quotient will be retained in the 
upper accumulator. The lower accumulator is ignored for 
this operation and will contain zero after its completion. 

37, PAAB, Floating Add Absolute. 

The absolute value of the floating decimal number speci- 
fied by the data address is added to the floating decimal 
number in the upper accumulator. The rounded result will be 
retained in the upper accumulator. The lower accumulator is 
ignored for this operation and will contain zero after its 
completion. 

38, FSAB, Floating Subtract Absolute. 

The absolute value of the floating decimal number speci- 
fied by the data address is subtracted from the floating 
decimal number in the upper accumulator. The rounded result 
will be retained in the upper accumulator. The lower accumu- 
lator is ignored for this operation and will contain zero 
after its completion. 

39, EM Floating Multiply. 

The floating decimal number in the upper accumulator is 
multiplied by the floating decimal number specified by the 
data address. The rounded result is retained in the upper 
accumulator. The lower accumulator is ignored for this 
operation and will contain zero after its completion. 

02, FASN, Floating Add, Suppress Normalization 

This code operates exactly the same as 32 (FA) except that 
the normalization, which occurs after adding the shifted numbers, 
is suppressed. This makes it possible to attach the same 
exponent to a group of numbers for fixed point output. 

The times required to execute the above operations are 
essentially the same as for corresponding fixed point operations. 
Since multiply uses only an 8 digit multiplier it will be 
faster than fixed point multiply. The add type operations will 
vary in length depending upon the number of shifts required to 
line up the decimal points or to normalize the sum. The minimum 
time is approximately 1.0 ms. and the maximum 2.4 ms, a good 
average is probably 1.7 ms. Thus, floating point add is about 
half as fast as fixed point add when optimum programmed. Random 
programming, of course, requires the same time for both types 
of addition, namely, 5.2 ms . 
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COMPLEX ARITHMETIC ROUTINES FOR THE IBM 650 MAGNETIC 
DRUM DATA PROCESSING MACHINE 



Tsai Hwa Lee 
The Detroit Edison Company 



Introduction 

Many machine computation problems require operations in complex 
arithmetic rather than in real arithmetic. For example, complex arith- 
metic is used in the steady-state and transient analysis of electrical 
networks, and especially in the studies of the A-C power system. This 
paper presents some programming aids to use the 6$0 as if it were a com- 
plex arithmetic machine instead of one processing ten digit factors. 
Part I presents The Complex Arithmetic Interpretive Routine which pro- 
vides twelve instructions. These include add, subtract, multiply, 
divide, shift left, shift round, store complex accumulator, transfer of 
complex number from memory to memory, sum of a block of complex numbers, 
square of absolute value, vector-vector multiplication, and unconditional 
transfer of control. This routine is optimumly coded. 

Part II presents a complex arithmetic matrix inversion program 
which makes use of the interpretive system. It is possible to obtain 
the inverse of a matrix up to the order of 27 x 27. 

Part I - The Complex Arithmetic Interpretive Routine 

The complex arithmetic interpretive routine was designed so 
that the programmer can use the 6£0 as if it were a machine that could 
recognize and execute a list of twelve complex arithmetic instructions 
besides the forty-four normal 6?0 instructions. This routine not only 
makes the 6£0 a more versatile machine, but also facilitates coding 
whenever it is necessary to perform complex arithmetic operations* 

Complex instructions are tagged with a minus sign. A complex 
instruction may be a one, two, or three-address operation. The operation 
code occupies 2 digits, while the location of the address part occupies 
U digits. The address specified refers to the real part of the factor 
to be operated upon. The interpretive routine automatically selects the 
imaginary part from' the next memory location. Thus the real and imaginary 
parts of a complex number will always be stored in successive memory 
locations . 

The interpretive routine is entered by transferring control to 
(005U). The instruction to be interpreted will be obtained according to 
the instruction address counter (01$7)» If the instruction obtained is 
plus, it will be executed as a normal 6$0 instruction, and subsequent 
instructions will not be interpreted until the interpretive routine is 
entered again. This is the normal manner of leaving the interpretive 
routine. If the instruction obtained is minus, the interpretive routine 
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will analyze it, obtain the real and imaginary factors specified, and 
transfer control to the proper sub-routine. After the sub-routine is 
executed, a new instruction will be obtained from the location next to 
where the last instruction was obtained. Once the interpretive routine 
is entered, the instruction address counter is incremented automatically. 
Thus complex instructions are stored sequentially in the memory according 
to the order of their execution. 

For example, consider the following sequence: 

Location Contents 

n complex instruction (-) 

n+1 complex instruction (-) 

n+2 complex instruction (-) 

n+3 normal 6£0 instruction (+) 

Instructions n, n+1, n+2 will be interpreted in sequence, n+3 
is also interpreted but it is executed as a normal 6£0 instruction. 
However, by this time, the instruction address counter has been incremented, 
so that if the interpretive routine is entered again, the first instruction 
to be interpreted will be obtained from location n+U„ 

The number form is as follows: 

.xxxxxxxxxx + j .xxxxxxxxxx = A-.+ jAp 

All the operations are designed to handle numbers with the 
decimal point set at the extreme left. It is necessary to scale the numbers 
so that the results will be less than one. If any answer should exceed one, 
the machine will stop. Also the condition }a|<|b| must be satisfied for 
the divide operation A/B. The two shift instructions are for scaling 
where the problem decimal point is different than the decimal point of 
the interpretive routine (extreme left). Generally, multiplication is 
followed by a shift left instruction, and division is preceded by a 
shift round instruction. 
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LIST OF INSTRUCTIONS FOR THE 
COMPLEX ARITHMETIC INTERPRETIVE ROUTINE 



Code 
00 A 0000 

00 A 0001 

01 A B 

02 A B 

03 A B 
OU A B 

05 A B 

M 

06 A M 2Z 

i*l 

M 

07 A B JZ 
00 M i=l 

08 A B 

09 A B 

10 A B 



Operations 



(C)-»(A) 

BR (A) 

(A) + (B)-»(C) 

(A) - (B)-*(C) 

(A) x (B)-*(C) 

(A) / (B)-^(C) 

(A)— *(B) 

(A i )x(B i )->(C) 



Store complex accumulator 

Unconditional transfer to (A) 

Add 

Subtract 

Multiply 

Divide 

Memory to memory transfer 

Block summation 



Vector-vector 
multiplication 



(A) p — ^(B) Square of absolute value 
Shift round (A) B positions, result in (C) 
Shift left (A) B positions, result in (C) 



Notes: 1. (C) is complex arithmetic accumulator. 

2. Instruction address counter (0157) = 11 n 0122 

3. Transfer to (005U) to enter interpretive routine. 
U. Complex instruction is tagged with minus sign. 

5. Storage required for routine: (0000) to (0283) 



Estimated Time 
(msec.) 

28.3 

26.U 

U5.6 

h5.6 

96.5 

175. h 

60.2 

36.2 + U3.2 M 

50.6 + 115 M 

93.8 

79.U 
8U.2 
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Part II - Complex Arithmetic Matrix Inversion Program 



This program uses the standard elimination method to obtain 
the inverse of complex matrix. Basically, the original matrix is first 
reduced to a triangular form and then to the unit matrix by successive 
operations on rows. The same operations are applied to the unit matrix 
simultaneously. When the original matrix is reduced to the unit matrix, 
the unit matrix will be reduced to the inverse of the original matrix. 
By augmenting the original matrix with a -I matrix below it, no back 
substitution is necessary and the inverse is obtained after n reductions, 
The effect of the -I matrix is to transfer the pivot row after each 
reduction to the n+1 row. 



Given the original matrix: 



A ll A 12 



l ln 



*nl A n2 • • • A nn 
Augment the matrix as follows: 

A I 

-I 

For example, the original matrix: 



A ll A 12 • • • 


A ln 


1 


A 21 A 22 • • ° 

• 


A 2n 




• 


* 

A nl A n2 • • • 


A nn 


• 
• 





-1 ... I 
becomes the following matrix after the first reduction: 



A« 



A' 



12 
22 



A 'ln_ 
A '2n 



' A l,n+l 



J A '2,n+1 



j A *n+1,2 • 



A 'n+l,n i Al n+l,n+l] 



Two types of operations are performed in the reduction: 
For the pivot row: A']* = A^-j/A^ 
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For all other rows: A 'ij " Aj4 - A^]_ A 'lj 

Note that the pivot row (except the pivot element) is trans- 
lated to the n+1 row. The next reduction will work on the matrix 
enclosed by the rectangle with A' 2 2 as the pivot element. After n 
reductions, the inverse of the original matrix will be obtained* This 
is in effect a process of sliding, where the matrix being worked on slides 
down along the main diagonal one step each reduction. 

In the 6^0 program, the elements of the matrix are stored by- 
row, e.g., A;q, A^2 ••• A i n , A 21, A22 etc. Each element of the matrix 
occupies two memory locations, the imaginary inroediately following the 
real. Thus 2n^ locations are required for storing the matrix. In 
addition, 2n locations are needed for working storage in handling the 
n+1 row. The I and -I matrices are not stored, their effect is programmed. 

Each reduction performs the following operations in sequence: 

la Operate on first row and store in n+1 row. 

2. Operate on second row and store in first, row. 

A' 2 2 » A n 

A '23 > A 12 etc « 

3. Operate on third row and store in second row in a similar 
manner. Operate on the fourth and remaining rows. 

It. Transfer n+1 to n row. 

This procedure stores the reduced matrix in the same locations 
as the original matrix. For example the new pivot row for the next 
reduction is stored in the locations used by the previous pivot row. 
The same program can be used in the second and subsequent reductions. 

Furthermore, the original matrix can be augmented with b 
column vectors which are the constant terms of the linear equations. 

b l b 2 ••• b m 

The solution of the linear equations after n reductions will 
result as well as the inverse. 

X]_ X2 • • • Xjjj A - - 1 - 

The storage assignment is as follows: 

(0h5£): A-jn, real component of pivot element. 
(Oijip.): (nj 0000 (b+n) n= order of matrix 

b= number of column vectors. 

b* if there are no vectors. 
(0300): Beginning of program; first instruction. 
(OiilO): End of program; last instruction, xx xxxx exit address . 

The decimal point of the matrix elements is set as follows: 

xx.xxxxxxxx 
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The time required for inverting a 10 x 10 matrix is approximately 
5> minutes, and 92 minutes is required for the maximum size of 27 x 27. 

A cknowle dgment s 

1. To G, R. Trimble, Jr. of IBM, whose "A Method for Performing 
Complex Arithmetic on the IBM Type 6£0", published in IBM Technical 
Newsletter No, 8, forms the basis of The Complex Arithmetic Interpretive 
Routine • 

2. To R. W. DeSio of IBM. The logic of the Complex Matrix 
Inversion Program is similar to the "Floating Decimal Point Matrix 
Inversion Program" written by Mr. DeSio. 
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Start | 3, 



Problem Hskp, 



"1- \s 



Hskp* for each reduction 



Pivot Row: A^j = A lj/ A n — > N tl Row 
Modify Insts. for next element. 



N FIN 




FIN 



Pivot Element: l/A^x 



Hskp. for AVj 



1 



Hskp. for 1st col 



1 



■ o^MMl 



Vj = A ij " A il A l'j 

Modify lnats. for next element 



N FIN 




Hskp. for pivot col 



I 



E 



Modify 
Inst. 



ivot Col = Aiix(-l/ ftn ) 
N FIN 




Hskp. to move pivot row 



FLOW DIAGRAM FOR MATRIX 
INVERSION BY SLIDING 



1 



Move Pivot Row from N+T " J 
Row to N Row I 



Modify 
Inst. 



N FIN 



No t FI N 




FIN 



Red. ^ FIN^ 



NOTE: 

3 Tallys Used 
TRC - Traverse Row Count 
RC - Row Count 
RFJ) C - Reduction Count 



Exit 
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MATRIX MULTIPLICATION WITH THE IBM 650 



R. H. Morris and C. H. Remilen 
Eastman Kodak Company 



Multivariate statistical problems such as multiple re- 
gression analysis, least squares analysis, multivariate tests of 
hypotheses, etc, require as a basic computation the multiplication 
of a matrix by its own transpose. 

In the classical least squares problem, for example, one 
is given a n x s matrix A (n^> s) and a n x 1 vector y and is required 
to find a s x 1 vector x of unknowns which best satisfy the matrix 
equation: 

Ax = y. 

The best solution, in the least squares sense, is that which makes 
the sum of the squares of the residuals a minimum, 

x •) (y-Ax) ' (y-Ax) "Bin. 

As is well known, the solution is found by solving the normal 
equations 

A'Ax - A'y 

and the residual sum of squares R is found by direct substitution, 
or more easily, 

R = y'y - x'A'y. 

The quantities required as intermediates for the solution of the 
problem are, then, 

A'A, A'y, and y'y 

These are conveniently determined by considering the partitioned 

matrix: 



B- 



[ A :3 



and the product C, of B by its transpose: 

rr. . l 



C= B'B 



A'A, A'y 
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7*A j y'y 



The 650 routine to be described presupposes the internal storage 
of B (the B matrix is usually augmented by an extra column consist- 
ing of the row sums so as to provide a check on the computations), 
it forms B'B, omitting those elements which may be obtained by 
symmetry, repeats the calculation of any row which fails to check, 
and leaves the matrix C stored in the machine for further computa- 
tions . 

The routine can also be used for multiplications such as 
C= A B where A 'A is not required, by loading B completely and 
loading A one row at a time. 

The restrictions on the matrix B for the multiplication: 
C= B'B are: 

1. Any element Cji of C must not exceed ten digits. Since 
all calculations are done in fixed decimal, any element 
bij of B must not exceed five digits. The number of digits 
allowable in bij will vary with number of products (n) to 
be summed over. 

2. The order, n x s, of B must satisfy s (n+l) - 1770. The 
constants, and auxiliary storage for the load, unload and 
B'B program decks consume the first 230 cells. Element 
cij may be stored in location 0231, element bn must be 
stored in 0231+ s or further. Only storage enough for 
one row of C is reserved. After the first row of C is 
calculated we no longer need the first column of B and 
because n ^ s the second row of C may replace the first 
column of B, etc. Thus, the elements of C "chase" the 
data of B. 

Matrix B will be entered with a crossfoot column of row 
totals which will be used to check each row as it is calculated. In 
the event that the check fails, the program will stop the machine. 
However, programs are included in the appendix which will adjust the 
routine so that it will recalculate the row. These programs Were not 
tested when this routine was checked out. 

If the column totals are needed to "mean correct" matrix 
C then a column of l's should be included in B. Note that this "1" 
should also be included in the check column. 

The general operating procedure for making this calculation 
is: 1. load the load -unload program 

2. read a card that describes the next deck to be loaded. This 
card contains the following data: 

a. how many cards are to be loaded 

b. how many instructions per card 

c. into which location to start loading 

d. to which location to go after completion of loading 

3. The above card will describe matrix B which will be loaded in 
successive cells in order by column, 

k. read a card that describes the program B'B deck as in step 2. 
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5. 
6. 

7- 



load program deck 

calculate B'B = C 

read a card that describes next deck to load if C must "be 

further operated upon or read a card which describes how to 

punch C. The punch routine is just the reverse of the load, 

so this card must contain similar information. 



The program for B'B s C is stored in locations 0099 to 0226. 
The contents of each location is found in Appendix A. The 128 instruc- 
tions are punched eight to a load card, the first fifteen cards being 
permanent and the sixteenth card keypunched to identify the order of 
the B matrix. 

The keypunched card contains the following data: 



1. 
2. 

3- 
h. 

5- 
6. 



n, the number of rows of B 

s, the number of columns of B 

s, the number of columns of B 

location of hjj_ 

location of c -n 

stop code if check fails . 



The program deck and original data, punched eight instructions 
or eight elements per card, load at the rate of 200 cards /min. assuming 
the whole drum is to be loaded with data, the maximum load time is if- min. 
for data and instructions. 



diagram: 



The B'B = C program is represented by the following block 



(1) 



(2) 



out 



B'B= C 
completed 



(3) 



stop \ ^~ 



error 



00 



Initialize instructions 
with data from key- 
punched card 



Test for completion of 
B'B=C Calculate one 
row of C. 

J 



Check calculation 
of this row of C 



v checked 



Modify instructions to __ 
calculate the next row 



Appendix A shows a more detailed set of flow charts, Figures 
1, 2, 3, k. Each detailed block in Appendix A refers to locations of 
instructions which are required. 

The program was checked out with a k2 x 33 matrix. The 
calculate time for B'B==C was about 25 minutes. This matrix required 
23,561 multiplications. 
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APPENDIX A 



Fi gtire 1 



Prog 99-102 
Prog 103-105 
Prog 106-109 
Prog 110-111 
Prog 112-113 



Block diagram illustrates modifications to programs with 
the location of element t>ii and the location of c]j_. 

These locations are backed off the proper distance so that 
all the elements' locations may be generated, locating the 
first column the same as the rest. 



Start 

i_ 



T 



modifies prog lU2 with the (location of bn )-l 
(Multiply) 

modifies prog 1^1 with the (location of b-^ )-l + n 
(Load multiplier) 

modifies prog 1^3 with the (location of en )-l 
(Add previous accumulation) 

modifies prog ikk with the (location of en )-l 
(Store accumulation) 

modifies prog 152 with the (location of en )-l 
(Location of pivotal element C]& ) 



Fig. 2 (prog Ilk) 
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Figure 2 - Block diagram illustrates the multiplication loops. 

J, 

set up s 1 in location 225 

(Remaining columns to multiply as pivot columns) 



Prog 114-115 
Prog 116-117 



f 



T 



out Z HZ 



Prog 118-120 J 



Prog 121-123 
Prog 124-126 



Prog 127-128 
8001 

Prog 129-130 



Prog 131-134 
: ieg . , che ck cross foot 
Fig 3« 



(Prog 149) 

Prog 135-137 
Prog 138-140 
Prog 141-142 
Prog 143 
Prog 144 
Prog 145-148 



jE. 



decrease s' by 1 and test. If zero, B'B is 
complete; if non zero, there are more pivotal 
columns . 
(Crossfoot is not used as pivotal column) 

decrease location of multiplier, prog l4l, by n 

increase location of product to be accumulated, 
prog 143, by 1 

increase location of product to be stored, 
prog 144, by 1 



reset to zero, the location to accumulate product 

set up n in location 230 
(Count number of multiplications within a column) 



decrease s ' by 1 (location 225) and test. If 
negative, all columns for this row have been 
pos .multiplied so check crossfoot, if positive, 
there are more columns to be multiplied. 



>i 



1 



3 






increase location of multiplier by 1, prog l4l 

increase location of multiplicand by 1, prog 142 

multiply two elements 

add previous accumulation 

store accumulation 

decrease n by 1 (location 230) and test, if zero, 
all multiplications for this column are complete, 
so do another column; if non zero, there are more 
multiplications within the column. 
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Figure 3 - 
Prog 1^9-151 
8001 Prog 153 

Prog 15^-155 

Prog 156-157 

Prog 158-159 
Prog 160-162 
Prog 163-166 



Block diagram illustrates the subtraction loop to check 
crossfoot of each row of C as it is completed. 



C3 



Prog 167-168 



modify prog 152 with the location of the crossfoot 
for the row to "be checked 

place value of crossfoot in an auxiliary storage 
cell, location £2.9, to hold differences as each 
element of row is subtracted out. 

Set up s in location 226 to he called rj_ 

(Count total number of subtractions to be made) 
NOTE: this is now one too high 

set up s' in location 228 to be called r^ 
(Used to locate location of column elements 
to be subtracted out) 

set up s'-l in location 227 to be called X£ 
(Count number of row elements to be subtracted out) 

modify prog 22k with location of the first element 
to be subtracted out plus one 

decrease ri by 1 (location 226) and test. If zero, 
all subtractions have been made so check crossfoot 
N^ for zero balance; if non zero, there are more 
elements to subtract out for this row 



3-1 



Fig. k{- 



Z. 



NZ 



Prog 200-203 



test location 229 for zero. If zero, start 
another row, if non zero, stop machine or 
recalculate row 



stop or 

location 169-18^ (recalculate row) 



Prog 20lt-206 

Prog 207-209 
Prog 210-212 

Prog 213-23A 



neg . > t 



decrease r^ ^ 1 (location 227) and test. If 
rs— positive, subtract a row element, if negative, 
T \ calculate location of column element to be 
subtracted out. 



kJ 



T 



pos 



tzi 



decrease location of column element to be 
subtracted, prog 21^, by r 3 (location 228) 

increase ro by 1 (location 228) 

decrease location of row element to be 
subtracted out, prog 2lk, by 1 

subtract element out of previous difference, 
location 229 
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Figure k - Block diagram illustrates modifications of programs in order 
to calculate another row of C. 



Prog 185-188 

Prog 189-191 
Prog 192-19U 

Prog 195-197 
Prog 198-199 



1 



T 



increase location of multiplier, prog l4l 
"by 2n 

decrease location of multiplier, prog 1*4-1 
by n and modify prog 1^2 to give location 
of multiplicand 

decrease s' (location 22l) "by 1 
(Remaining columns of symmetric matrix) 

decrease location of next product to be 
accumulated, prog 1^3.> by 1 

decrease location of next product to be 
stored, prog 1*44 by 1. 



Fig. 2 (Prog III4-) 
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. DETERMINING THE EIGENVALUES OF MATRICES 

Mark Robinson 
Bell Aircraft Corporation 

Io Eigenvalues and Eigenvectors 

In applied mathematics, a problem that frequently occurs is that of 
solving, for a given square matrix M, an equation of the type 

(1) MV - Mr, 

where 7 is a vector and X is a scalar. It is obvious that if for some X, V 

satisfies equation (1), then k V where k is any constant also satisfies 

the equation© In such a case A, would be called an eigenvalue, (or characteristic 

value, or root of the characteristic equation) of M and V or k V Q would be 

called an eigenvector corresponding to X. For purposes of counting, V and 

k V are considered to be the same eigenvectoro 

The first and most important theorem on the subject is that every square 
matrix over an algebraically closed field has at least one eigenvalue and a 
corresponding eigenvectors The proof follows from the theory of linear systems. 
Equation (1) may be rewritten: 

(2) (M-lX) V - 

For any given X, this has a non-tri trial solution if and only if the 
determinant? |m-IX|- 0. Expanding the determinant by minors we get a poly- 
nomial in X of degree n called the characteristic equation of M. As the matrix 
was assumed to be over an algebraically closed field this polynomial has n roots 
one or more of wiich may be multiple roots. To each distinct root, X. , of the 
characteristic equation corresponds at least one eigenvector, Vj, . 

If ^1> ^2» •••* \l ar * distinct eigenvalues and Vj, V2, «..», V ffl are 
corresponding eigenvectors then the \k are linearly independent. If all n 
eigenvalues are distinct, then all of the eigenvectors are linearly independent 
and as the characteristic equation of an n x n matrix has n roots, the eigen- 
vectors of a matrix whose roots are distinct span the space over which it 
operates. This is the case most commonly encountered in practice. Only two 
other cases may occur: matrices with one or more multiple roots whose eigen- 
vectors span the space, and matrices whose eigenvectors do not span the space 
upon which they operate. Some methods of obtaining eigenvalues may fail or 
have excessive rounding error for one or both of these cases. 

An operation that has considerable application is the change of basis in 
the vector field over which a given matrix operates. Let a given vector V be 125 



represented by the column X in one coordinate system and by Y in another, 
where the transformation is I ■ CX. Then MX expressed in the T coordinate 
system becomes (MX » CMC-klX ■ CMChTj that is M is transformed into CMC* 
If V is an eigenvector of M, then CV is an eigenvector of CMC*. Further, if 
P(M) is a polynomial in M and if P(M)"X - then PfCMC- 1 )'^ ■ Oj for if 
P(M) » Za^, then PfCMC- 1 ) - Sa^V" 1 and PCCMC-^CX - (Za^^" 1 ) CX - 
(Za k CM k ) 8 X ■ CUa^M^'X - C(0) ■ 0. For matrices of a general type, this 
transformation is most useful in reducing them to a simpler farm, as it does 
not change the eigenvalues. Note that as the transformation is reversible a 
vector which is not an eigenvector cannot be transformed into an eigenvector by 
change of basis, which, of course, is intuitively obvious 

The change of basis may be used to transform a matrix to a form with zeros 
below the main diagonal and also with every element n^* - if m^ / nu^. The 
process goes as follows: denote M by M^j M^ having an eigenvector V^. Let V^ 
be normalized so that the leading element is one. If the leading element is 
zero, rows and columns of M^ may be interchanged. Let Cj" be the matrix 
obtained by replacing column 1 of the identity matrix by V^ Then OjMC^ A has 
X^ in the position (1,1) and zeros elsewhere in the first column. Let 
Wi+1 • CjMjCj where for i > 1 the (L are chosen as below. Consider the 
(n+1-1) x (n+l-i) matrix in the lower right hand corner of M^. It has an 
eigenvector in (n+l-i) dimensional space. We may normalize it as before. Now 
it may or may not be possible to add elements -<^, x« ... «o •• to V* in such a 
way as to make it an eigenvector for all of M^. We want Xi-i*^..! + ^ n i-i»i ,T -i* 
X. -<« t» and similarly for the other -<,. These equations have solutions except 
where X^- X.. j (j <i) e Where no solutions exist, we may put ** » 0. Then V± 
with the -o adjoined is used to replace the i'th column of the identity matrix 
to give Cj"-*-. Thus, the transformation Mi + ^ ■ CjMiCi" gives M^ + i with zeros 
in the i'th column except on the diagonal which has X^ and above the diagonal 
in cases where X. « X.j (j / i) M n+ vi3 a triangular matrix whose characteristic 
equation is seen by inspection to be; £j^ (^-X i ) - o Let P(M n+1 )- JT (M-^-lX* ) . 

Then P(M n+ i)°X » for any vector X. It is sufficient to show this for the 
"basis" vectors, (1,0,. ..,0), (0,1,0. ..0) etc. Let u^ be the basis vector 
which has 1 for its i'th component and zeros elsewhere. Let p be the number 
of X's above X^ on the main diagonal and equal to X.. Then P(M n+ ^) contains 
the factor (M n+ i~lXjP , Now (M^yl^) u.» is zero except possibly in those 
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positions, where A. ■ X. and j < i. This moans for p ■ tho rector is 
annihilated by (M n+ i-I^), and hence by pCHq+i)* If *» assume the annihilation 
proren for p » k, then if p ■ k+1 multiplying by (M n+ i-lA^) reduces u^ to a 
sum of rectors which are annihilated by (M^-IX^) 1 ^ Thus M n+ ^ satisfies its 
characteristic equation. But M^^ is of the form CMC"* so PCMjCu^ » for all 
i, and M also satisfies the characteristic equation* (Cay ley-Hamilton theorem). 

II. Various Methods of Solring the Eigenralue Problem 

We hare programmed and tested at Bell Aircraft Corporation a great many 
methods for finding the eigenralues of matrices. The reason that we have used 
so many methods is. of course, that so few methods hare proren completely 
satisfactory. Exeept for special methods for symmetric and Hermitian matrices, 
mentioned in Section J below, all the methods hare been tested and used on our 
CPC or 650 or both. 

A) Direct expansion by minors. 

For small matrices, it is possible to expand |M - iXj by minors and 
get the characteristic equation of M directly. This is probably the best 
approach for 2x2 matrices and on the CPC for 3x3 matrices. It has been 
programmed on the 6j>0 for 3x3 complex matrices and it works quite satisfactorily, 
but it uses so much storage for instructions, that we plan to run many of our 
3x3' s by Danielews ley's method discussed below. For matrices of size bxk and 
higher, the method is too laborious for wide use as the number of operations 
goes up about as n*n! . However, we once attempted this method for 5x5*3 on 
the CPC. While this method is quite accurate when applied to the small size 
matrices for which it is suitable, it was not remarkably accurate when applied 
to 5x5 f s. In all cases we solred the characteristic equation by Newton's method. 

B) Another Method Using the Determinant 

It is well known that it is easier to evaluate the determinant of a 
large matrix of numbers (as opposed to a matrix of Polynomials) by elimination 
than by minors, as elimination takes about n3/3 multiplications instead of about 
nl e This technique has been applied to determinants of the form (M - IXJ at 
Bell Aircraft Corporation, where we used elimination down the opposite diagonal, 
to avoid dividing by polynomials in X. When the elimination was one half 
complete, we shifted to direct evaluation of the coefficients of the characteristic 
equation from the reduced matrix. We used this method for complex 5x5' s with 
moderate success on the CPC, but the rounding error was treacherous, and a 
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lengthy checking process was found necessary te guarantee accuracy. We do 
not consider it suitable for the 650 as it appears that the program would 
take too many instructions 

C) Numerical Evaluation of Determinant 

If one is given A as an unverified eigenvalue of M^ a simple way 
to check the value is to compute |M - iAj , usually by elimination. This 
has a number of variations. For example, we frequently improve the approxi- 
mation of /^ as a root of JM - IX| ■ p(X) - by evaluating P(A©) and setting 
A x "A -(P(*)/ a£)x -A ' that is by Newton?s method. However, if we have 
only approximate values for the coefficients of P(X), then we may be able te 
evaluate |M - iAol Blore accurately than PfA^,). Thus, direct evaluation of 
the determinant can be used to refine approximate eigenvalues., Also we may 
replace dP/dX by: 

(|M - IAJ - JM - IAj] ) / (Ao -4) if IAq -AJ is small. 

Both of these methods have been used to check the results of the calculations 
of the type described in section Bo If (Ai ~A«) / *■ < W^- (where X 

is the largest computed eigenvalue) the root is accepted} otherwise the process 
is repeated until this criterion is satisfied. Host roots are accepted at onee, 
but occasionally roots close together give considerable difficulty. 

A variation of the above method is being programmed for the 6£0 to 
check the results of Danielewsky's method, and simultaneously obtain the eigen- 
vectors. We have (M - I A) V » where V may be written in the form 
(x,, Xg, ..., x n „]> -l)o If we perform our elimination working down the main 
diagonal we arrive at a matrix of the form: 



1 
1 





.0 








1 





x l 

x 2 



*n-l 

£ 



where the x^ give the eigenvector and e times the divisors used in the 
elimination is the value of the determinant, |M - IA | • The quotient of 
this by \ Q P'(X o ) will be used as an indication of the accuracy of the root. 
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D) A Method Using the Cay ley-Hand It on Theorem 

The theorem: P(M) = Z a M » (where P(X) is the characteristic 

k "° k 

polynomial | Xl — M| ) can be used to determine the a.. Since the ZaJM «X - 

where X is any vector, repeated premultiplication of a vector by M yields the 

It 
set of vectors M Xo Denoting the i'th component of the k'th vector of the 

set by b.. we have the set of equations: Z bj.a. ■ 0$ and a is known to be lo 

k=0 
If the matrix B is not too badly conditioned, the a. may be obtained from this 

seto 

This method is simple, easy to program, and occasionally gives good 
resultso It is treacherous with respect to rounding error as the matrix B 
is seldom well conditioned. For example, if we have two equal eigenvalues then 
B is singular, if some of the eigenvalues are much larger than others, then the 
columns of B representing the higher powers of M will tend to lie in the same 
general direction; B will be nearly singular if by accident the vector X is 
chosen so that it has a nearly zero component in the direction of some eigen- 
vector. As a result of the uncertainty about the accuracy of the results, we 
have been forced to abandon this method. 

An extension of this method has been suggested, but not tried out, 
so far as we know. Instead of taking one vector X, we may start with two or 
more initial vectors and get a 2nxnor3nxn redundant set of equations 
which could be solved by a least equares process. This method may merit further 
investigation, as it is one of the few that appear suitable for fixed decimal 
type of operation o 

E) Leverrier's Method 
If we study the diagonalized or triangularized form of M, that is 



CMC"*, we observe that (CMC-*) 



!-lMi 



x? x* 

O ' X S 



where X. are the roots of the 



characteristic equation. But (CMC" 1 ) 11 ■ CM 11 ^ 1 , that is the transformation of 
M n » Now the trace of M n is (-1) times the coefficient of X 11 " 1 in the charac- 
teristic equation of M n and is invariant under the transformation: M n — »CM n CT*. 
Thus the trace of M n - Z X n . Now the coefficients ef a polynomial, a , are 

symmetric functions of its roots: If we denote the trace of M n by S n we get 
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a l- 



- s i 

-*1 S 1 + S 2 



a 3" 



- 1/3 (« 2 Sj^ + a ! S 2 + Sj etc. 



This method suffers from two major defects. In the first place, the 
computation is lengthy, as the matrix must be raised to the nth. power, 
requiring about n multiplications. Also, in many cases, the rounding error 
is very bad. In cases where all the eigenvalues are positive, the S. are all 
positive but the a. alternate in sign. This mean3 that after the first, each 
a. is the difference between positive quantities, and quite frequently, the 
small difference between large positive quantities. In aircraft flutter work 
matrices with real positive eigenvalues are infrequently encountered but one 
often meets complex matrices with the real parts of the eigenvalues positive 
and large compared with the imaginary part. This is another method we were 
forced to abandono 



F) Danielewsky's Method 



-1 



The transformation M . , - C.M. C. may be used to reduce a matrix in 

i+1 i i i J 

such a way that the coefficients of the characteristic equation are obtained. 
Take M-, - M and let (%■"■*■ be the matrix obtained by replacing the (i+l)st. 
column of the identity matrix by the vector obtained by dividing the ith. column 
of M i by its (i+l)st. element. After this transformation M~ contains only zeros 
in the first column except for row 2; the second column of M-, is zero except in 
its third element j and finally M has zeros everywhere except for the last 
column and the diagonal below the main diagonal. This process can fail only 
if one or more of the "pivotal" elements is zero. We perform another set of 
simple transformations to reduce M to Frobenius standard forms 



M. 



n 



0.. .0 


- a o 


1 ... 


- a l 


10.. .0 


-«2 




• 




A 


0. .010 


" a n-2 


0. .001 


- a r._T 
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where •, is the coefficient of X in the characteristic equation P(X) ■ 

X n + n z a.X 1 - 0. To see this, consider P(X) / (X-X ) - X 11 ' 1 +"£ d.X 1 
i-0 x ° i-0 1 

(X Q any root of P(X). As nay be verified by multiplying (X-X o )(X n -lzd.X i ), 

a - -X d. + d. .jj « -U. Now H . Sd d -. l{ » 

I 01 i-l' o 00 n \ o n-2' * 

-a , <*-*•]> *** ^i-1 "*i* '"* ^n-2 ~ a n-l ° ® u ^» from the previous 
statement, this is just equal to [X Q dJ . Hence, X is an eigenvalue of H , 
and, since the transformation of M into M n did not affect the eigenvalues, it 
is an eigenvalue of M. Consequently, P(X) ±a the characteristic equation of M. 

As was pointed out earlier, this method fails only when the pivotal 
element is zero* However, the method can be extended to cover even these cases. 
Suppose the pivotal of ^ is aero, but there is a non-zero element belew it in 
the i'th. column, and k'th. row Then we may interchange the (i+1) st. row 
with the k*th. row and also the (i+l)st. column with the k»th. column. This 
does not disturb any of the zeros in the columns numbered less than i, and the 
interchange of both rows and columns is another example of change of basis 
which does not affect the characteristic equation. 

In order to handle the case where the whole column is zero below the 
main diagonal, we split the matrix, using an auxiliary theorem: 

Let any square matrix M be partitioned as below so that A and D are 
square principal minor matrices containing between them all the diagonal elements, 
and let C ■ 0, then every eigenvalue of M is an eigenvalue of A or D. 



M - 



A 


B" 


. C 


D . 



Proof: Let m be the number of rows in A. Then every eigenvector of M falls 
into one of two classes j (1) all elements after number m equal to zero, and 
(2) all other cases. It is obvious that the eigenvectors of class (1) are 
eigenvectors of A with the trailing zero's omitted. If we take vectors of 
class (2) and consider only the last (n-m) elements, then they are eigenvectors 
of D. Also with all of these vectors, there is associated the same root in both 
M and A or D. The converse is also true. Obviously, an eigenvector of A is 
an eigenvector of M (by adding zeros). Also if an eigenvalue of D is at the 
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same time an eigenvalue of A, it is therefore an eigenvalue of M. In the ease 
of an eigenvalue of D which is not one for A, we may transform M so that A is 
in diagonal or triangular form as in part I without affecting matrices B, C 
or D. Now, as in Part I, any eigenvector of the lower, right»hand corner may 
be extended to an eigenvector of M (transformed) provided, as we assumed, that 
the eigenvalue associated does not equal any of the upper left-hand diagonal 
element So 

Using the above theorem, we see that when we carry out the reductions 
of Danielewsky's method until we encounter a column which has all zeros below, 
we may split the matrix and find the eigenvalues of part A and D separately. 
A is already reduced to standard form for the characteristic equation and D 
is of lower degree than M, even if the splitting occurs on the first column. 
Therefore, if we reduce D as we had been reducing M, the process will terminate, 
although we may have to split D several times. After splitting we have a 
factorization of the complete characteristic polynomial. 

This extended process appears difficult to apply directly on the 650. 
Even if we neglect the problem of storing the extra instructions, we have the 
old problem of digital computers: "what is a zero ?*. Usually, when the true 
answer is a zero, the computed answer will contain rounding error. In problems 
that are carefully scaled, it is frequently possible to set a reasonable upper 
bound for the rounding error, but in routine matrix work, scaling each matrix 
would be laborious, and the results might not mean much, as the operation of 
dividing a column by its pivotal element causes irregular and sometimes large 
increases in the size of the numbers used. 

We have adopted Danielewsky's method as our principal means of attacking 
medium size matrices on the 650. We have run several hundred 5x5 complex matrices 
with good results using our provisional program, and we are now adding checks on 
the determinant, as outlined in Section C. We knew that there are some matrices, 
(for example, matrices with two or more equal roots, whose eigenvectors span 
the space) that cannot be handled by this method, but we have been lucky enough 
not to be presented with any of these. 

G) The Power Method 

If the characteristic vectors of M span the space, then any vector V 
may be written: 7 » Za. V. where the 7. are eigenvectors of M. Hence, M^7 » 
2a.X p 1 7.« If ow of 1he X. , say X. has much larger absolute value than the 
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others, the term ^a^ will dominate the others for large p, assuming of 
course, that *± / 0, Thus, by repeatedly multiplying a matrix by an arbitrary 
vector, ve get an approximate eigenvector, which we can make as accurate as 
available machine time will allow* It is customary to normalize each time by 
dividing through by sane element, frequently the last. Then the approximate 
eigenvalue appears as the last component of the next product vector. 

This method may be extended to find other eigenvectors in several ways. 
For example, if M is symmetric, its eigenvectors are or may be chosen orthogonal. 
Thus, after VI is determined, we may choose a V such that V^Vj - 0, Then, the 
component a-^ » 0, so that 2a i X p V i approaches the vector corresponding to the 
second largest X. Because of rounding error, it is usually necessary to re- 
orthogonalize occasionally. This can be extended to find all the roots and 
corresponding vectors of a symmetric matrix. If M is not symmetric and we 
have found one of its eigenvectors, we may reduce it as in Part I and consider 
only the (n-1) x (n-1) lower right-hand corner. This process, when applied 
repeatedly, reduces M to triangular form. 

The convergence of this process depends upon X-/X- where X^ and 
Xg are the two largest roots of P(X) when this ratio approaches one, conver- 
gence becomes very poor. At one there is no convergence. To accelerate conver- 
gence quadratic or higher formulas may be used. Take X and Y any two non-parallel 
vectors. We assume that eigenvectors corresponding to eigenvalues other than 
k^ and Xg have been substantially eliminated from V. Then we solve the equation: 

(H 2 V)X + (MV)»X'p + V»X«q - 

(M 2 V)Y + (MV)»Y.p + V»Y«q - 
for p and q. The roots of the equation X + pX + q ■ are approximate values 
for the two largest eigenvalues \ and Xg, We choose the smaller to eliminate. 
We take as our new 7 the quantity M 2 V - XgMV. The cubic reduction is similar. 

Except perhaps for ultra high speed machines, the power method is too 
slow to be practical except in special cases. Probably the most important of 
these special cases is when only one or two of the eigenvectors are needed. 
For example, some vibration problems are set up so feat the reciprocals of the 
squares of the frequencies are the eigenvalues of a matrix. An engineer may be 
interested in only the lowest two frequencies. These frequencies are often 
well separated; for example, the vibration frequencies of a cantilever beam 
have about the ratio 1:6. 2:17. !i. We have programmed this method for both the 
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6^0 and the CPC and use it for these special applications,, 
H) An extension of the Power Method 

Except as applied to symmetric matrices, the complete power method 
has the reputation of being inaccurate, at least for the smaller values obtained 
later in the processo The reason is that most matrices have at least one pair 
of eigenvalues nearly the same size. If Xj/Xgjis 1.1 may take sixty or 
seventy matrix vector multiplications to get three digit accuracy. Under these 
circumstances there is a strong temptation to stop the iteration as soon as 
a reasonably good value is obtained. This may be permissible for the first 
two or three roots, but when the matrix has been reduced several times using 
approximate eigenvectors, the roots of the lower right-hand corner are no 
longer close to the roots of the original matrix. At Ball Aircraft Corporation, 
we have developed and tested a method for getting around this difficulty. 
Essentially what we do is recognize that when we reduce with an approximate 
eigenvector, we obtain only approximate zeros. We save the whole matrix after 
each reduction, including the terms near zero. 

The process thus has three parts: find a reasonable approximation to 
the eigenvector for the lower right-hand corner matrix, extend this to an eigen- 
vector for M*, and then reduce the whole matrix. When the process is complete 
we have an "almost diagonal" matrix, that is a matrix whose elements on the 
main diagonal are large compared with all others. 

The approximate roots may now be improved by a simple iteration process. 
If we want to improve Xp we taket 

v i,o " °J * / P? v p,o " *? *p,o " "Vp 

(the second subscript is the number of the iteration). 

T i,j+i \j ± ra ik- v k,j^p,r i ii)5 i ^ p 



n 



'p,j+l " lj ^M " k f x m pk v k,j + l 



The advantage of this last type of iteration is its very rapid con- 
vergence. In the case of two equal diagonal elements we simply set the 
corresponding v. equal to zero. However, it is clear that this method fails 
for matrices whose eigenvectors do not span the space as these cannot be 
reduced to diagonal form. The failure occurs when we try to extend the eigen- 
vector of the lower right-hand corner to one for M. 

This method has been tested on the CPC. It is too laborious for 
general use, but for medium-sized matrices, it is the most accurate we have 



134 



found, using a fixed number of digits* 

J) Conjugate Gradient and Special Methods for Symmetric Matrices 

In the past few years, there has been a great development of special 
methods for symmetric matrices; most of it by men who worked at one time or 
another for the National Bureau of Standards. 

The process for finding the characteristic equation is an extension of 
the process of solving a linear system. Given AX - B, one takes an arbitrary 



x ant 
o 


1 sets 




Po " r o - B * AX o 




a i - (r ± *P ± )/(P ± **V ± ) 




*U1 " h + Vi 




r i + l " r i " a i Ap i 




b i - (r i + l * A Pi>/(Pi-APi) 




p i + i - r i + l + Vi 



If the process can be carried out n steps, neglecting rounding error, 
Xn is a solution, that is AX^ « B, and r n » 0« The * ± and b. can be used to 
obtain the characteristic function as follows: 

R o " P o " 1 

p i+ i - \ + i + Vi p „- p w 

Although wb have programmed this conjugate gradient method for the 
solution of simultaneous equations, we have not used it for eigenvalues because 
most of our matrices are not of the right kind. However, it appears very 
promising. 

III. The Program Using Danielewsky»s Method 

We have in operation a program applying Danielewsky's method to the 
solution of eigenvalue problems for 3x3 to $x$ complex matrices. The work is 
done in floating decimal using an interpretive routine prepared by Mr» Bruce 
Blasdell of Bell Aircraft Corporation. This system uses an eight digit mantissa 
and a twe digit exponent. To simplify coding and reduce storage requirements, 
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complex arithmetic subroutines were worked out for the operation, a»b — *k, 1/a — vk 
and a - k — *a, which were the operations most used. The use of these subroutines 
simplifies coding the main problem, but at some expense in speed. 

There are many formulations of Danielewsky»s method. For example, instead 
of working with matrices that differ from the identity only by a column, we 
may use for C and C** 1 matrices that differ from the identity only by a row. 
This is equivalent to working on the transpose of M, and the choice appears 
arbitrary. Again, equally arbitrarily, we might start with the last column, 
to set all but one of its elements equal to zero, instead of the first column. 
Because our research on this problem was done on the CPC, the arbitrary choices 
were made in such a way as to simplify CPC coding and card handling. 

There is one respect in which our method differs from methods that I have 
seen published. Usually the matrix G^" 1 is obtained by replacing the (i+l)th. 
column in the identity matrix by the ith. column of M-p We first divide this 
column by its (i+l)th. element. The only change that this makes in q is that 
for the (i+l)th. diagonal element, instead of one we get (1/mi+i^). An 
advantage of the usual method is that the final reduced matrix ^ has l»s on 
the sub-diagonal, so the final multiplication by these elements is not needed. 
We feel that our method is superior, hcwever, as it is shorter, the coding 
appears to be simpler, and rounding error should be less. The last factor was 
decisive. The reason why our revision of Danielewsky ' s method should produce 
less rounding error is that in the reduction: M^ - C^Ci* there are two 
possible sources of error, the first is that \ may not be the exact inverse 
of C and the second is the rounding error in the indicated calculation. Our 
version eliminates the first source of error because (^ is the exact inverse 
of Ci" 1 instead of a computed inverse. This should cut the per-step rounding 
error in half. 

The actual operations contained in the program are: 

1) Compute V, - the i'th. column divided by its (i+l)st. element 

2) Mi'Vs and place answer in (i+l)st. column of K^ 

mi+1 (i + l),k" m (i + l) i 'k 



136 



The first step is a loop, and steps 2) and 3) are both loops within loops. 
The three steps are iterated (n-1) times? the final step in the reduction to 
Frobenius form is the multiplication by the subdiagonal elements. 

Next, the root3 of the characteristic equation are obtained, Newton's 
method is used and each root of the reduced equation is substituted back inte 
the original equation for correction and checking. In addition, the program 
contains special parts to handle the particular problems of aircraft flutter „ 
We get M by dividing a given matrix by a diagonal matrix. We also compute 
w, V, M and g, functions of each root. The whole existing program runs about 
eight minutes per matrix,, 

There are at least two plausible methods of checking the results of the 
program. The first is to add an (n+l)th. row to M, a check row whose elements 
are the sums of the elements in their columns. For the product MjC,"*^ the 
check row remains a check row. For the multiplication G^C^C." 1 ) it is 
necessary to augment C^ by adding an (n+l)th. row and column. The latter is 
zero except on the diagonal, which is one, and the former is zero except on 
the diagonal and the (i+l)st. column which is the sum of Ihe off-diagonal 
elements in Ci. The product now contains a valid check row. Examination of 
the check row after (n-1) reductions will locate gross errors, and give a rough 
idea of the total rounding error in reduction. This check was used on our CPC 
program The check we plan for our 650 program is the direct one using the 
determinant, which also gives the eigenvectors. We make this choice because 
there is enough demand for the eigenvectors to justify the extra work involved,, 
Meanwhile we have been running the program without check, except that any value 
questioned by the customer is checked on the CPC. So far we have run several 
hundred cases without finding a serious error 

7. The Modified Power Method 

The extension of the power method described in II -H has been programmed 
and tested on the CPC. For a calculation using a given number of digits, we 
regard the method as the most accurate we have tried. One difficulty in 
analysis of rounding error is getting examples whose exact answers are known» 
We constructed by hand an 8 x 8 matrix whose eigenvalues were complex integers. 
The example contained five and six digit numbers to ensure normal rounding error 
for multiplication. It was not weighted on the main diagonal and the largest 
element was about ten times the largest eigenvalue. While no pair of roots were 
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close in the complex plane, one set of three roots and another of two were 
of similar absolute value. On the whole, we considered this matrix as a 
moderately bad case. Using the modified power method, we obtained the 
eigenvalues to about seven digit accuracy* 

We have not programmed this process for the 6£0 because we regard 
Danielewsky's method as suitable for na trices of order $ or smaller j and 
with double precision routines, we expect to use it for matrices of any order 
within the capacity of the 6$0 o 

As both the modified power method and Danielewsky's method involve same 
type of reduction, we might ask, "How can cne be more accurate than the other?" 
The answer is that the modified power method is essentially an elimination 
process working down the main diagonal while Danielewsky's method takes its 
pivotal elements down the sub-diagonal. Most matrices arising from physical 
problems tend to be weighted on the main diagonal which means the pivotal 
elements of the power method tend to be large, while for Danielewsky's method 
we usually seem to get at least cne small one. Also when a matrix is reduced 
by the power method, the elements normally become smaller and smaller as 
the larger eigenvalues are eliminated first, while with Danielewsky's method 
they gorw, as the coefficients of the characteristic equation tend to be large 
compared to the individual rootso 

The rounding error of the basic reduction process is easy to study for 
the case of distinct roots. Let M i+ i - CjM^" - KDK" 1 where D is the 
diagonal matrix of eigenvalues. Let ff. - be the computed matrix obtained from 
the reduction using machine calculations and define ^i+i ■ M\ + , - M. .. Now 

K**^ M. -j K » D + K ^i+i K » If tne i I terms are small compared with the 
differences between the K, then the eigenvalues of D + K~* ^ i+ T K depend 

almost entirely on the diagonal terms, and hence the errors depend primarily 
upon the diagonal terms of K~ C. -K. It is possible to scale K, so that all 
of its columns have length one. Then we get a bound for the errors in the 
roots of: The square roots of the son of the squares of the elements of *-j + * 
times the length of the rows in K corresponding to these roots. From this 
it can be seen that the closer a matrix is to symmetric or diagonal, the less 
is the rounding error in this reduction. The power method reduces a matrix to 
a form which more and mare closely approaches diagonal, while Danielewsky's 
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method produces an unsymmetric form. 

In principle, both methods may be Improved by proper choice of pivotal 
element. In Danielewsky's method the largest element in the I'th. column 
which is below the main diagonal may be used. If the only large element lies 
on the main diagonal this is not very helpful. In the power method we may 
interchange rows and columns so that the largest element of the eigenvector 
of the reduced matrix is the pivotal element, so the system is always well 
conditioned in this respect. Frequently, vibration matrices come so arranged 
naturally. We have done a limited amount of experimenting with the results 
of interchanging rows and columns in Danielewsky^ method with discouraging 
results. It seems that frequently what is gained in one step, is lost on 
succeeding steps. However, when we have added everything we want to our program, 
if we have storage for more instructions, we may add the interchange of rows 
and columns, to give protection in the rare case of extra bad luck. 

vT. Conclusions 

If trivial multiplications and divisions are avoided a matrix may be 
reduced by Danielewsky's method using about r? multiplications. Another 
number of multiplications, usually smaller are needed to get the roots of 
the polynomial. With the power method the number of operations is indeteiminant. 
However, if we assume twelve iterations per eigenvector, it comes out about 
2n^ multiplications for reductions and Un^ for iterations. In addition, there 
are the extra iterations at the end t© refine the roots 

Now a double precision routine uses three single precision multiplications 
to get a double precision product and from this point of view could be con- 
sidered as three times as slow, and similarly for division. Therefore, for 
matrides from 6x6 complex to 12x12, where we have a choice of single precision 
power method or double precision Danielewsky, we plan to use double precision 
and are programming routines using 18 digit numbers with a 2 digit exponent. 
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DATA REDUCTION OF TELEMETERED INFORMATION ON THE IBM TYPE 650 



Essor Maso and Raymond C. Clerkin 
Hughes Aircraft Company 



One of the byproducts of all experimental work is the seemingly 
endless amounts of data. The information may be recorded on paper tape, 
magnetic tape, oscillographs or film. But somehow, if there happens to be a 
computing facility in the area, the data eventually is placed on punched cards 
and it becomes the task of the computer to reduce these numbers. The first 
impulse one has is to run and hide and maybe the engineer will go away, but on 
closer inspection it becomes clear that here is a job that although not glamorous, 
is highly important and should be studied very carefully from all points of view. 
Many engineers are waiting for these calculations, since they will be used in 
further studies. One particular case in point is the job of reducing data for a 
Hughes missile. Since the early part of 1952, Hughes Aircraft has been using 
a system whereby telemetered information has eventually found its way to 
punched cards. Just how this is done is not of immediate importance, but the 
data is eventually punched from a 521 summary punch. The cards are brought 
to the machine room for calculation and then returned to another facility for 
automatic plotting. The data has usually been sampled at a rate of thirty 
points a second on as many as twenty -eight channels. The early attempts at 
data reductions generally involved calculations of the order Ax -»- B, A and B 
being parameters dependent on the particular channel being sampled and x the 
value at a certain time t. Since the portion of the flight that was interesting 
rarely exceeded five or six seconds and the number of channels involved usually was 
around twenty, and in view of the simple linear calculations that were to be 
performed, this problem was rather easily performed on a 604. It is of interest 
at this point to note that prior to the use of the 604, a 602A was used and before 
that a 602.. However, as time passed the calculations became more and more 
involved and the number of channels were increased to 28. At present the 
equations used may take any one of the following six forms: 

1. A (x - x ± ) + B 

A (x - x ) + C 
2 * (x 5 - x ) * D (x - x x ) + E + B 



3. 

U. 
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A (x - x x ) 2 + B (x^ - x l ) (x - x^ + C (x^ - y^) 2 
(x 6 - xp + I) (x - X;l ; ! 



2 2 

A (x - x^ + B (x^ - x^ (x - x 1 ) + C (x^ - x^ 

(x 6 - x^ + D (x - x^ x 2 



, A (x 6 - »jj * C 

(x - a^; ♦ d (x 6 - x^) + 1 + B 



6. |u*fTJ) 



where b = Axt Dx,, +B 



DX 11 



2 o 

and C = E x ♦ F x + G xx^ ♦ H x + I x * + j 



where the x without a subscript refers to the data point, the x with a subscript 
refers to certain channels which are for reference purposes, and the remaining 
letters are empirical constants. Needless to say that work on a 604 now became 
almost prohibitive. However, since each card contained only one data point, it 
wasn't economically feasible to use the 650 for these calculations since the input 
time would slow the machine to a point where the total elapsed time of processing 
would not be appreciably faster than the 604. 

To overcome this problem, an old device was used. The data, as was 
stated before, is punched on a 521 summary punch. By offset gangpunching, as 
many as fourteen points may be placed on one card. Therefore, an entire frame 
or twenty-eight channels may be punched on two cards. Every fourteenth card 
may now be selected on a sorter and the card volume is decreased by one- 
fourteenth. Directly following the input of the program instructions are a group 
of special instruction cards that may change for each job run. These instructions 
indicate which of the six types of calculations are to be performed on the various 
channels. All of the identifying information for listing purposes is placed on the 
detail cards. The output is also punched fourteen per card. This is easily 
accomplished by placing two numbers in one storage location (since the numbers 
never exceed four digits) and saving the sign in one of the numbers in word ten. 
This involves the use of punch code selectors. 

Comparative speeds indicate an over-all improvement in the neigh- 
borhood of ten to one over the old system. Not enough work has been done as yet 
to justify a more accurate estimate. The main increase in speed stems from the 
elimination of the majority of the card handling as might be expected. Yet the 
actual computing speedup is of the order of four to one. 

From this example it becomes fairly evident that there are many other 
problems in data reduction that will in time be transferred to our 650 for faster 
and more varied analysis. 
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THE DETERMINATION OF THE AUTOCORRELATION AND POWER 
SPECTRUM BY USE OF THE IBM TYPE 650 



Essor Maso and William J. Drenick 
Hughes Aircraft Company 



The problem of estimating the power spectrum from the auto- 
correlation, or more precisely the autocovariance, function starting from 
a set of raw data has been of frequent occurrence at Hughes Aircraft 
Company. In the past four and one-half years we have proceeded from 
hand claculations to the use of the 402 tabulator and 602A calculating 
punch, the CPC, and finally to our present use of the 650. 

This method of determining the power spectrum of a discrete 
stationary time series is due to John W. Tukey. It may be found in the 
"Symposium on Applications of Autocorrelation Analysis to Physical 
Problems", pp 47-67, Office of Naval Research. 

Data is received in the form 



7]_» S^* 3^3* • • •» ^N 

then 



1 



* 



y " n i^l y ± 



*± m 7± m * 




\te compute R , R,, R«, . . ., R_ where m is some predetermined 
number* 
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From these we calculate the apparent line powers L , L, L, . 



L by the equations* 
m 



L - ~ (R * R ) + i 
o 2m o m m p« 



R 



L - 1 R * 1 ^ R cos (2^) + i R cos hn 
h mom f^ p m mm 



m 



for ^ h < m 



1 
2m 



R + (-I)™ R 
o m 



Next we calculate 



U q - ,$k L q * ,U6 L x 



» m-1 



m 



p»l 



Now we have L q , 1^, L g , . . ., L^, 



U. 



.5H L fc + .23 (L k-1 + L k+1 ) for ^ k < m 



U " «5U L ♦ .U6 L 



m 



m 



m-1 



Originally we found the autocorrelation function by a method known as 
progressive digiting on the 402 tabulator. This was discovered to be faster and 
more economical than 604 calculations. However, the power spectrum analysis 
was done on the 604 at first and later was done on the CPC. The problems en- 
countered on the CPC were the tedious card preparation and the equally tedious 
card handling during the running of the problem. We were later able to speed 
up the autocorrelation computations with the advent of the 407 tabulator, but 
this was not a. large scale improvement. The length of time from the arrival 
of the data until the engineer had the final answers would at best be two days. 
The actual computation would take two men one complete day working at top 
speed. 
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Prior to the arrival of our 650 the code was written and then 
checked out on a machine made available at Endicott, New York. The 
example or test case used at Endicott was one that took approximately 
one day to compute by our old method. This time was reduced to about 
15 minutes on the 650. 

The optimum programming features were used throughout the 
coding. We felt that this was necessary at least in the autocorrelation 
portion of the program because of the repetitive nature of the problem. 
The storage locations were allocated to allow for any number of input 
items up to 1,000. In addition, we allowed for any number up to 100 
lags in the autocorrelation. Since the maximum number of cards to be 
punched would never exceed 100, we withheld punching until the end of 
the entire calculation period. It is only fair to note that the methods using 
the tabulator did not allow such large values of m and N. 

An interesting observation made by Mr. Donald Criley of the 
Los Angeles Applied Science Office of IBM indicated that by eliminating 
the Fourier transformation and making a few minor changes in the 
autocorrelation coding, the cross correlation may be found in a similar 
fashion. 

It should be mentioned that Tukey has given other methods of 
estimating the empirical power spectrum and at present prefers a different 
method of estimation rather than the U's given. These are given in his 
unpublished manuscript "Measuring Noise Color". Alternative techniques 
are discussed in the excellent paper of Ulf Grenander and Murray Rosenblatt, 
"Comments on Statistical Spectral Analysis", Skandinavisk Aktuarietidskrift, 
1953, parts 3-4, pp 182-202. All of these publications discuss statistical 
tests of signification. 

The use of the 650 in the autocorrelation and power spectrum 
solutions has been very useful to manyrnembers of the Research and 
Development Laboratories in radar and missile problems. 
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NUMERICAL SOLUTION OF AN INTEGRAL EQUATION 

CONCERNING 
VELOCITY DISTRIBUTION OF NEUTRONS IN A MODERATOR 



D. B. MacMillan and R. H. Stark 
Knolls Atomic Power Laboratory 



Wigner and Wilkins 2 have obtained an Integral equation governing the 
energy distribution of neutrons that pre being slowed down uniformly through- 
out the entire space by a uniformly distributed moderator whose atoms are in 
motion with a Maxwelllan distribution of velocities. The effects of chemical 
binding and of crystal reflection were ignored (to put It another way, the 
moderator was aseumed to be a monatomic gas.) 

The atomic number of the moderator appears as a parameter In the expression 
for the kernel of the integral equation. In caGe the moderator is hydrogen, 
cancellations occur in that expression, and Wigner and Wilkins were able to 
derive from the integral equation a differential equation having the same 
solution as the integral equation. They solved that differential equation, 
and discussed the solution. 

For moderators other than hydrogen, we know of no differential equation 
equivalent to the integral equation. 

We were asked (by members of the Theoretical Physics Staff at Knolls 
Atomic Power Laboratory) to obtain numerical solutions to the integral equation 
for other moderators. It is our purpose here to discuss numerical techniques we 
are using in thin problem. Our difficulties with this problem were all connected 
with the evaluation of the error function. This function is usually evaluated 
by means of a power series around the origin, and an asymptotic series for large 
valucB of the argument. In the middle range of values of the argument the first 
of these series converges very slowly and the second gives inaccurate values. 
We used a continued fraction expansion in place of the asymptotic series. The 
continued fraction bridged the gap nicely, lurthermore, It enabled us to 
circumvent a cancellation of terms which would have made it difficult to obtain 
sufficient accuracy. In the discussion which follows, we emphasize the con- 
siderations involved in the use of the continued fraction. 

The integral equation given by Wigner and^Wilkins Is 

(1) fyev) + rcvo] fa) = S(v) + [pfa— *>/) Mo A 

Jo 
Here U(v) is defined by the statement that N(v)dv equals the number of neutrons 
per cubic centimeter having a velocity between v and v + dv (k(v) s neutrons per 
cm. 3 per unit velocity). V(v) is the probable rate of scattering collisions for 
neutrons at velocity v.YIb the probable rate of neutron absorptions, and 
p(v, — »-v) is the probable rate at which neutrons with velocity v, will be 
scattered to velocity v. S(v) is a uniformly distributed source of neutrons. 

1. The Knolls Atomic Power Laboratory is operated by the General Electric 
Company for the U. S. Atomic Energy Commission. 

2. Wigner, B. P. and Wilkins, J. B. Jr., "Effect of the Temperature of the 
Moderator on the Velocity Distribution of Neutrons with Numerical Calculations 
for H as Moderator. AECB 2275. ■ Oak Hidge, I9U9. 
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Thus, the equation le Just a statement of equilibrium; the rate at which neutrons 
of a given velocity disappear equals the rate at which they appear. 

fhe kernel, P(v, — >-v), is given by the formulas 



ft 



W^en /, <• / 



<KVl4: 



\eJ fppv x - JJsy) +e*flppv,+ tyv) 



Pfo- 



/" 



+ e 



Vl/li«^ v, ^ v. 

In these equations, 6*2^ and J = 57^" . where M Is the ratio of the mass of 
a moderator nucleus to the mass of a neutron, /3 ~ ^mt • *&*?* K 1b Boltzmann's 
constant and T is the temperature of the moderator. By erf, we mean the error function, 
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The. overall accuracy requirements for this problem are not severe, since the infinite 
moderator postulated here is a poor approximation to the finite moderator regions 
that appear in practice. However, there are spectacular cancellations* The trouble 
occurs in (3)» in the term 

lor some values of v, and v, the evaluation of this results in numbers like* 

I.e. * /0 /r [jmi 11111 11111 unit, -,11111 mih 11111 11111 11m 11111 is] 

From our point of view, the problem was this: We were interested in obtaining 
values of the kernel accurate to, say, four decimals. If there was a factor of the 
order of 10 /jr , then we would have to obtain the error function accurate to nineteen 
or twenty decimals, which would be a nuisance on a machine with ten-digit words. 

We used a continued fraction expansion for the error function: 



(5) e^fc>- 



/ - 



-X' 
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2x + 



t + 



Zx +■ V 



146 



2TV- 



valid for x>0. If we substitute this expression In the term In question 
we get 

(sj e' 



ir x>0. If we substitute this expression In the term In question 



where we have used the notation 



J 



(yc) - 




ix + 2. 



*Z +■ 3 



2x- 



1 



A short calculation, using the fact that j3v, >D ) fiv>D i and M?l, shows that both 
exponents In (5) are negative. This means that the two values of gix) are 
multiplied by numbers less than 1; to insure, say, four decimals accuracy In 
the value of (3), we have only to get g(z) accurate to five decimals. 

Wow g(x) converges rapidly for large x, and slowly for small X» The series 
expansion (around af*0) of the error function converges rapidly for small Z, and 
slowly for large X. *t turned out to be convenient, In terms of the magnitude of 
Intermediate quantities, to set fr/*/.17 as the range of the program which evaluates 
the series. We chose if*/. *? as the boundary, and wrote a subroutine to evaluate 
the error function by means of the series when the argument is smaller than l,9 t 
and by means of the continued fraction when the argument is greater than 1.9. 
Also, we substituted expression (6) for expression (U) in equation (3) whenever 
(/SV, 3 -^ -1 v')>^..gjp. w hich assured that the arguments of the function gte) in (6) 

would always be>1.9. 

We studied the convergence of approximations to the continued fraction by 



means of numerical experiments. Finally we chose the expression 



F>~iw [ 




\ 



Zx+A 

where the constant A was to be chosen to yield adequate accuracy over the range 
X> 1.9. By approximations involving additional terms and by numerical experiments 
we chose A= 2.5, which gives a maximum error of less than 2 x 10 in that range. 
(The elementary mathematical theory of continued fractions would use the 
approximations obtained by setting A = or A= g. These bracket_the value of the 
infinite continued fraction, but differ from It by about 1 x 10" .) 



3. H. S. Wall, Continued Fractions . New York, 19^8, p. 357. 
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After the computation of the matrix which represents the kernel, we use 
the conventional Iterative process, -i 

to get from a first guess at the solution, N°(v), to successively better 
approximations to the solution, fl'(v), U*(v), . . . 

The computation of values of the kernel 16 entirely (including all 
subroutines) sequentially programmed. It takes about tvo seconds per point, 
or about half an hour for a 25 x 25 mesh. The iteration procedure is optimum 
programmed. It takes about l/30 second per point of the kernel, or about 
thirty seconds per iteration for a 25 x 25 mesh. 

At the present time, only exploratory calculations have been made using 
the program discussed here. lurther calculations will be made, and results 
will be published later. 



148 



APPLICATIONS OF THE 650 MAGNETIC DRUM DATA PROCESSING 
MACHINE AT MARQUARDT AIRCRAFT COMPANY 



Richard A. De Santis 
Marquardt Aircraft Company 



The development of ramjet engines and the facilities for testing 
these engines have reached a point where it is Imperative that engine develop- 
ment work be supplied with equipment and facilities for quickly and efficiently 
recording and calculating large amounts of test data, and for providing de- 
velopment engineers with an efficient tool for determination of engine design 
and performance criteria. 

The Marquardt Jet Laboratory has facilities for testing engines 
ranging in size from 1 inch to several feet in diameter. Under various 
conditions, altitudes may be simulated from sea level up to 100,000 feet, 
temperatures up to 970°F, and fuel flows up to several hundred gpm. During 
a test run 80 channels of data may be recorded every 0.2 second. Typically, 
these might represent 74 pressures at various stations throughout the engine 
being tested, the remaining 6 being temperature and fuel flow readings. Thus, 
for a test lasting 20 seconds, 8,000 data readings could be recorded. With- 
in approximately 2-g- hours after completion of an engine test run, printed 
lists of pressure ratios, combustion efficiencies, fuel/air ratios, Mach 
numbers, etc. are available for engineering analysis by the Test Engineer. 

Figure No. 1 is a functional diagram of the data recording and 
computing system incorporated at the Marquardt Aircraft Co. 
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Referring to the diagram, the quantities of interest to be re- 
corded during a test run are fed into transducers where the signals are 
amplified. A commutator selects the d.c. voltages and transmits them to 
an analog-to-digital converter, which emits digital pulses which are re- 
corded on magnetic tape. After the test run, the magnetic tape is played 
back into a summary punch which produces IBM cards on which the recorded 
quantities are scaled from - 999. For maximum resolution, the amplifi- 
cation can be doubled or quadrupled. The cards are then loaded into the 
650 where the numbers are entered into a cubic equation which simultaneously 
applies an error correction and shifts the scale and range to correspond to 
the measured quantities. On the next pass through the 650 the desired cal- 
culations are performed. The fixed decimal system is read in the data pro- 
cessing problem. A typical engine test run would produce 4-00 IBM cards, 
each containing 20 data readings which would be completely processed on 
the 650 in a period of approximately 2^- hours. 

In addition to its use as a data processing computer, the IBM 
650 is used at Marquardt Aircraft Co. for the solution of a wide range of 
engineering design and performance problems. A typical problem is the 
design of an axially symmetric, supersonic nozzle with continuous wall 
curvature. Whereas the previous problem used a fixed decimal mode to com- 
pute a large number of sums and quotients, this method employs a floating 
decimal abstract interpretive routine (FIAIR) and involves circular and 
inverse trigonometric functions, logarithms and exponentials, and an 
iterative solution, by the difference method, of four simultaneous non- 
linear differential equations. 

Specifically, it is desired to calculate the shape of a nozzle 
under the following conditions: 
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Flow 



Figure 2 



Referring to Figure No. 2, the flow field is first specified 
as being radial in Region II, bounded by the left and right characteristic 
lines BC and DC. Flow through A-A', the throat, is assumed at sonic 
uniform velocity, a condition frequently assumed in nozzle calculations 
and closely attainable in practice. Finally, flow is specified as being 
plane and parallel to the axis as it passes through D'E at the design 
Mach number Mn 1 . The problem is to find the wall shape A'CE which will 
transform the plane parallel flow at AA' to radial flow at BC, and the 
radial flow at CD to plane parallel flow at D'E at the design Mach number. 
D'E is also a left characteristic line and the acute angle at D' is 
defined by 4 1 = arc cot \] M 2 d' - 1. The exit radius is taken as unity, 
the length of the nozzle is L, and the maximum wall angle <JL) is obtained 
at C, which is thus the point of Inflection. With M5 1 , L and <a) given, 
enter a family of curves especially prepared for this purpose and determine 
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a value M D . Enter the 650 with M D ' , M D , U) , and * , followed by the 
program deck. The solution begins with the following equations: (Ref. Hi]] ) 



(1) 



^ c 



\TI?r WL£W M MT - i W\f^T 



(2) 



^C * V„ - lO 



V© = >J C - UU 



(3) 



X = 



*-H 






M 



(A) 






*-l 



= 3JU£l. ) •*• S M 



M*-l 



7 ' • D 



(5) 



<*A* ° 


<* D * <S> + 


m' — 





^- T B 



K, 






Equations (1) and (2) axe readily seen to be one half the Prandtl-Meyer 
expansion angle; equation (4) is valid for radial flow. 

Now perform calculations tabulated as follows: 
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Use equation (1) to compute N 



P 



< 2 > ^i,^, 

(1) M c , M B * 

< 3 > X^,T D> T e 

<*> Me, Mo 

M <** , <*-p, ^o' 

(*use Newton's method, wit h f\ = 5 y -v las the first approximation) 

Note that L ■ <t* 9 , +■ \) M p , - 1. 



4(M -l) 



% 



4(m p -m d ) \ z(m p '-m ) 



oL 



It can be seen that 



^ 4(M '-Mp) y 






Hence, f (x) and g(x) are used to define M on AB and DD 1 , respectively. 
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To obtain starting values on BC, select about 20 equally spaced values of 
M between Mg and Mq, and compute the corresponding values of N> and "C using 
(1) and (3). Then, 

leu*. ©■ - 'tc^j (.v -V^ & « flow angle 

X ceo, B .v ^ . x p 

* " — — 

Compute CD in like manner, substituting 

The flow field is computed by the familiar method of characteristics, using 

<t$ - A dM +• £> U 4.-JL =0 JLe+AdM-BdnCsO 

(left characteristic) (right characteristic) 

where A = -~- — — 



\TmVL x Hb^v & 



A 



\|m*-1 



M ( 1+ *i! M*) 



Having ri u? »^ u } jta™. 6 t f M u and flt R ,ij R) i&/w ©« , Mr 

solve by iteration for <£ M i^ N , %<*/** ^w 5 M M using 
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d* M « 



(6) V 



X^ - x u 



v N — — ■ 

Ar * A" u 



where 



*«_ = i(*,_*C) X R = iU* R +X M ) 

A L * i (Al +• M A R = 4 IAr + A ») 

_ U 

Solve equations (6) in the order given, using Xj_= X u etc. on the first 

iteration. On all other iterations, compute X M A M } E> N using the values 
of ~Lom. & M , M»j from the previous iteration. 

To compute the flow net in Region I, start with the known points 
on BC and bj = C* B - 0.1 (see Figure 3). Use 1^ and a x to get b 2 , then b£ 
and 82 to get b^, etc. Suppose b n is the first point which lies above the 
tangent to the streamline at C. (This can be determined by testing the 
slope of bjC after each point b^ is computed. ) 
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Figure 3 



Then determine a new streamline (wall) point S(x, y, tan ©• , M) by solving 



V 1 * 



(n-l 



ot - <*< M .., 



5L 



( x u m ♦ X\.) 



A >vu Region III 



W 



C/L- CC, 






( W & + i^ & £ } 



8 C = uj 
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for x, y, tan © . Having thus determined s so that, simultaneously, 

this value of a can be used to determine 

This method assumes that: (1) the characteristic line is straight between 
b n- i and b n and (2) that x, y, tan © , and M vary linearly on this segment. 

No appreciable error is introduced by these assumptions. 
Having x, y, tan © and M, compute K3X, K^y and © , where K« is simply a 
constant used to scale the dimensions up to the desired exit diameter. 
Then punch a card containing K3X, Rjy, © , M and Mp' . 

This procedure is repeated using the left characteristic just 
constructed, c-^ ■ b^ - 0.1, and the tangent to the streamline at S. 

With appropriate substitutions, the same instructions can be 
used to compute Region III, taking points a, = 06 , b]_, ci, ......along 

DD'E and constructing right characteristics. The results can be compared 

A- 1 
with the theoretical values at A' ( O , T 0.1) and at 

' *v ? * 

e(L, , 1, O , M < )• 

It can be seen from Figure 4, which describes the computation 
procedure using the 650, that this entire program can be run with no 
decision required by the operator, after one card is loaded, containing 
V» M D ,(ai , % , K3. 

Depending, of course, upon the fineness of the flow net 
constructed, the time required to design a nozzle by this method is 
approximately 2 hours. 
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In conclusion, two points should be noted. First, the 

shortest possible nozzle can be designed by this method with a given Mp' 

and (Ji) , by choosing Mj) = Mp 1 . This will introduce a discontinuity in 

dM at x D ', but experience has not indicated any serious difficulty. 

dx 

Second, uu and M n must be chosen so that uU < ^V B , This is to permit 

expansion in Region I. 

It has been shown how the IBM 650 computer is being used to 

handle current problems at the Marquardt Aircraft Co. Its use will be 

invaluable in reducing the time of ramjet engine development from the 

preliminary design phase to its use as a power plant in support of our 

national defense effort. 



Reference \_ljl NACA TN 2711 "The Aerodynamic Design of High Mach 

Number Nozzles utilizing Axi symmetric 
Flow with Application to a Nozzle of 
Square Test Section" by Ivan E. Beckwith, 
Herbert W. Ridyard, and Nancy Cromer 
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DETERMINATION OF CRITICAL SPEEDS IN ROTATING SYSTEMS 
BY MEANS OF AN IBM TYPE 650 



Marshall Middleton, Jr. 
Westinghouse Electric Corporation 



Introduction 

One of the most important problems in the design of large 
electrical machines is the determination of the critical speeds or natural 
frequency of vibrations of the rotating system. Coincidence of the normal 
operating speed and critical speeds or any harmonic thereof, will produce 
vibrations detrimental to the opera ti en of the machine. These vibrations 
endanger the strength of the various structural elements and thus make 
machine operation extremely hazardous. Excessive oil and gas sealing 
gland wear, bearing surface fatigue, improper commutation, fretting corro- 
sion at joints and fits are but a few of the injurious effects perpetrated 
by excessive vibrations. To eliminate or minimize these vibrations, it is 
necessary for the critical speeds to be sufficiently displaced from the 
operating speed. Hence, it is imperative to know the location of the criti- 
cal speeds and their position relative to the normal operating speed. 

The rotating systems for which the critical speeds must be 
determined vary in combination of simply supported to multiple span systems 
with or without overhanging extension on one or both ends. The physical 
composition of the system greatly effects the critical speed. For instance, 
the addition of a short overhanging shaft to a system which is simply sup- 
ported at either end may change the location of the critical speed by as 
much as 20 to 2£ percent. The number of bearings and the flexibility in 
the bearing mounts both effect the critical speed and must be considered 
in the calculations . 

An important factor contributing to the demagnifi cation of 
the amplitude of vibration which occurs at a critical speed is the damp- 
ing produced by the oil film between the rotating system and the bearing 
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surface. This damping is present at all speeds but is most beneficial at 
or near the critical speeds. Many of the large electrical machines built 
today have normal operating speeds which lie between the first and second 
critical Speeds. The ease with which these machines cross over the first 
critical may be attributed almost exclusively to the oil film damping. 

In order to obtain the location of the critical speed and 
the amplitude of its associated vibrations with any degree of accuracy, it 
is apparent that the physical composition of the rotating system, the bear- 
ing characteristic and the oil film damping must be simultaneously con- 
sidered. 

Computational Procedure 

The critical speed vibrations of a rotating system may be 
considered as a special case of forced beam vibrations. The exciting 
force in this case is produced by any eccentricity or unbalance in the 
rotating system. This force, however, is not constant but varies as the 
square of the speed of rotation. 

The method used to obtain the critical speeds is an exten- 
sion of a Holzer "type iteration. The rotating system is first broken up 
into a large number of sections with constant diametrical moments of in- 
ertia. Eor large machines, such as modern tandem compound turbine-genera- 
tors, it is not uncommon to divide the rotating systems into 80 or more 
sections. The numerical representation of the system consists of the length, 
weight and areal inertia of every section. The location of the bearing with 
respect to these sections, the flexibility constants of the bearings and 
the weights at the bearings which contribute to the shearing force are also 
required. "When considering the oil film between the rotating system and 
the bearing, an external force must be applied in order to supply the 
energy absorbed by the damping. 

Solutions of the problem is based on the standard deflection 
coefficient equations, which express the deflection angle, 0, the displace- 
ment, X, the moment, M, and the shear, S, at the n + 1st position in terms 
of those at the nth position. 
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where 



^ _ - Q +fl S +c( M 
n + 1 n rn n n n 

X n + l = X n + in°n + l- ta S n " pn M n 

M n + 1 " M n + J?n S n 

S n + l = S n ( ^¥> 2¥ n*l X n + l 

<*J rJ 2 y-P 

The frequency of the forced vibration appears in the shear term, and the 
shear term is contained in the other three equations. 

To obtain the critical speed a trial frequency of vibration 
is selected. Then a set of beginning conditions are established. If the 
starting end consists of an overhanging extension, the initial moment and 
shear terms are zero while the slope and deflection are carried as unknowns. 
When starting at a bearing , the initial moment and deflection are zero with 
the slope and shear as unknowns. The trial frequency, and the two beginning 
conditions are substituted into the above equations. The slope, displace- 
ment, shear and moment are then calculated at the end of the first section. 
These conditions are in turn used as initial conditions for the next sec- 
tion and the process repeated. When an intermediate bearing is encounter- 
ed, a constraint is introduced in the form of a known force depending on 
the spring constant and the deflection at the previous section,, This pro- 
vides one additional equation at that point and sets the deflection to a 
value depending upon the spring constant of the bearing. 

At the end of the last section, four equations are obtained 
expressing the slope, deflection, moment and shear in terms of the initial 
unknowns. An additional equation and unknown shear force were added for 
each bearing encountered. A set of known conditions exist at this point. 
If the system terminates in an overhanging extension, the shear and moment 
must be zero. When the system terminates in a bearing the moment is zero 
and the deflection is proportional to the spring constant of the bearing. 
With these conditions and the above results, a system of n simultaneous 
equations are resolved. This system of equations will have a non- trivial 
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solution only if the determinants of its coefficients are zero. Since the 
coefficients contain the frequency, this determinant defines a polynomial 
in the frequency whose roots are the natural frequencies of vibrations. 
Rather than finding the roots of the frequency polynomial, it is easier 
to select trial frequencies until the value of the close out determinant 
changes sign. The natural frequency of vibration then lies between those 
two frequencies which produce sign reversal of the value of the close out 
determinant. 

Because of the wide ranges in the magnitudes of the numbers 
used in this problem, the floating decimal number system must be used. The 
IBM floating decimal routine written by G. R. Trimble, Jr., was adopted. 
The critical speed program deck consists of approximately five hundred in- 
structions which are loaded into the 650, four instructions per card. The 
selected value of frequency is set on the storage entry switches . After the 
650 has completed the calculations, the value of the close out determinant 
is located on the display lights. From this value, a new frequency is 
selected and the process continued. 

When the rotating system is extensive and must be divided 
into a large number of sections, round off errors begin to produce erratic 
results. In these cases it is desirable to close out at each bearing 
thereby eliminating one unknown by the use of the constraint at that point. 

Conclusions 

To obtain an indication of the precision of the results, the 
problem is run in the forward and backwards direction. The IBM 650 machine 
time required to find a critical speed to within 0.1$ is about 30 minutes. 
This method of solution is not restricted to rotating systems. With slight 
modifications, the same procedure may be applied to vibrations in jet en- 
gines, bridges and other structures. 
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650 PROCESSING OF MASS SPECTROMETER DATA 

B. R. Faden 
International Business Machines Corporation 



At the IBM Data Processing Center in Los Angeles 
we are processing mass spectrometer data for the Union 
Oil Company of California. The program was written to 
the specifications furnished to us by Mr. W. C. Ferguson 
of the Union Oil Company's Research Center at Brea, 
California. 

The application of the mass spectrometer with which 
we are concerned is the quantitative chemical analysis 
of mixtures of gases . The samples to be analyzed are 
known to be made up of certain compounds; the problem 
is to determine the proportion of each compound in the 
mixture . 

In the mass spectrometer the compounds are broken 
up into ions, and the ions are subjected to an accelera- 
ting voltage and to a magnetic field. The path followed 
by an ion is determined by its mass, by the accelerating 
voltage, and by the applied magnetic field. In this 
application the instrument is focused for ions of a given 
mass by changing the accelerating voltage, for a given 
setting of accelerating voltage, ions of a given mass 
are collected at the plate of the instrument and give a 
current reading proportional to the number of ions of 
the given mass present in the sample. In spectroscopic 
practice this current is called peak height. 

A procedure designed to accommodate n constituent 
compounds must record (at least) n peak heights corres- 
ponding to n ionic masses. Let n such ionic masses be 
chosen and identified by n numbers m-,, ni2...m n , where 
the m^L are arranged sequentially according to the mass 
values they denote but need not be the mass values them- 
selves, since as we shall see, the actual masses of the 
ions play no part in the computations. 

The instrument is then calibrated for each compound 
as follows. The compound is introduced into the instrument 
at some particular pressure and readings are taken of the 
peak height for each m ± . The peak height is linearly 
proportional to the pressure, so that if the readings 
observed are divided by the pressure, we obtain normalized 
peak heights in milliamperes per micron. Let the 
normalized readings for the j'th compound be denoted by 
a^j-, that is, aj[j is the normalized peak height which the 
j'tn substance gives at mass number mi. 



165 



We have said that, for a given substance, the number 
of ions of a given mass is linearly proportional to the 
pressure. This is also assumed true of the partial pressure 
when the substance is mixed with others. Suppose now that 
we introduce a mixture into the instrument and denote the 
partial pressure of the j'th substance by yj and denote the 
peak height observed for mass i by v±. Then the law of 
partial pressures gives, as the equations for the amount 
of each substance present. 

£ a ij y j = V i 
and the percentage of the j'th substance present is, of course, 

xj = 100 y j 



£ y k 

The quantity £y* should equal, within the limits of 
experimental error, the total pressure of the sample. The 
percentages Xj are the chief desired results of the processing. 

Since a great many mixtures of the same set of compounds 
are to be analyzed, it is worthwhile to compute the inverse 
of the calibration matrix aji, and to determine the xj by 
multiplying the peak height vector vi by the inverse matrix. 

The calibration matrix, a^, may be inverted with fully 
adequate precision by Gaussian Elimination, since it is 
very well conditioned. Many of the masses observed are 
chosen to be just the molecular weights of the constituent 
compounds, and many of these substances undergo comparatively 
little disassociation. Hence, by ordering the rows of the 
matrix by increasing masses and the columns by increasing 
molecular weight, we get a very strongly diagonal matrix. 
Furthermore, the matrix so arranged is very markedly upper 
triangular. The molecules undergo some disassociation but 
little or no, so to speak, agglutination, so there is 
little contribution to mass 1 from substances of molecular 
weight less than 1, and hence there are almost all zeros 
to the left of the diagonal. 

Since the need to invert a new calibration matrix 
occurs infrequently and since the matrix is well conditioned 
the matrix inversion part of the problem is very suitable 
for a library routine, and our practice is to perform the 
inversion using Mr. Dura Sweeney's routine, and convert 
the results to fixed point for incorporation into the 
program . 
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The rest of the work is not so well suited to a 
utilization of a vector by matrix multiplication library 
routine. The peak heights which form the multiplying 
vector are only four digit numbers. A library routine 
could not be expected to take full advantage of being 
able to do the multiplication with single precision 
fixed point arithmetic, and of the possibility of 
optimization afforded by the small maximum number of 
digits in the multiplier. 

Since there are several special requirements to the 
problem, and since increased speed is quite an important 
factor when several hundred samples are to be processed, 
it seems well worth while to write a special program for 
the entire processing of the samples. We have presently 
in use two such programs, one for a twentieth order 
calibration matrix and one for a twenty -seventh. 

The instrument in use at the Union Oil Company's 
Brea Research Center incorporates a Spectro-SADIC 
connected to an IBM punch, so that the data is directly 
recorded on punched cards and comes to us in that form, 
with one peak height per card, n cards per sample. The 
cards contain the mass identification number, m^, the 
apparent net peak height or deflection, a multiplying 
or scaling factor, the observed total pressure of the 
sample, and the chemist number and sample number. The 
650 program multiplies the apparent peak height by the 
scaling factor to obtain the observed peak height, v^. 
The observed total pressure does not enter the computations 
but is punched on the 650 output cards and listed, for 
comparison with the calculated pressure. 

The program counts and sequence checks the cards. 
If the cards are not in sequence by mass number, or if 
the number of cards per case is other than n, the program 
will skip over the calculation of percentages and punch a 
special error card, so that the listing will indicate 
that we were furnished an erroneous deck of cards for 
that case. 

One of the special requirements of the program is the 
processing of what are called "check peaks". The nature 
of the check peak computations is as follows. Suppose 
that we have decided on n ionic masses at which to read 
the n peak heights, and that we solve the equations for 
these n peak heights to get the n partial pressures. 
However, suppose that we have also calibrated the in- 
strument for the peak heights for one or two extra ionic 
masses, and suppose that we read also these extra peak 
heights or check peak heights when observing the samples. 
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Then the following check on the accuracy of the 
spectrometer run can be made. Multiply the solutions 
found for the partial pressures by the calibration co- 
efficients for the check mass. Now if the sample is 
pure, that is, contains only the compounds calibrated for, 
and if these compounds are yielding ion currents in the same 
pattern and degree as they did under calibration conditions, 
then this multiplication will' give exactly the peak height 
observed at the check mass. If there is an appreciable 
difference from the calibration conditions, then there 
will be a residual difference between the check peak 
height so calculated and the check peak height observed, 
and this residual is a measure of the general accuracy 
of the spectrometer run. 

The calculation of this residual may be incorporated 
directly into the solution. Into the matrix to be inverted 
is incorporated the calibration equation for the check 
mass, and also incorporated is a column containing unity 
in the check equation row and zeros in all other rows. 
Then when this augmented system is solved, the solution 
corresponding to the incorporated check column is the 
desired residual. 

Since the columns of the calibration matrix are labeled 
by the constituent compounds, it may be convenient to think 
of the check column as corresponding to a fictitious substance, 
The fictitious substance has the following mass spectrum: 
at the check mass, a normalized peak height of unity j at 
all other masses, a normalized peak height of zero. Then 
the solution found for this column may be thought of as 
the partial pressure of the fictitious substance. Since 
the fictitious substance gives unit peak height per unit 
pressure, its calculated partial pressure is equal to its 
contribution to the check peak height. Its contribution 
to the check peak height is a measure of how much of the 
peak height is not accounted for by the concentrations of 
the real substances, and hence is the desired residual 
peak height. 

Two such check peaks are included in the n equations 
in each of the programs so far written. The branch on m 
equal to 02 or 17, which may be noted in the flow chart, 
is for the purpose of transferring to punching location 
the observed check peak heights, so that they may be 
listed and compared with the calculated check peak residuals. 
The observed peak heights at the other mass numbers are 
not punched in the results. 
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The instrumentation set up as presently used produces 
an extra card, identified by mass number 01, in addition 
to the n data cards. This card plays no part in the compu- 
tations. The branch on m equals 01 shown on the flow chart 
causes the program to ignore the data on this card. 

There are several special requirements in connection 
with the computation of total pressure. The partial pressures 
for the check peak substances do not enter this summation. 
It is desired to report the proportion of substances other 
than air and water as percentages of total non-air/water, 
non-check peak substances; and to report the proportion of 
air and water as percentages of all non-check peak substances. 
Because of inaccuracies in the experimental set up it is 
possible for the calculations to yield some negative partial 
pressures. These have no direct physical significance. A 
summation including the negative values is made, however, 
for comparison purposes. Accordingly, three summations 
are performed as follows: We first form 

Y a = Zy-j, with j not equal to the check peak 
substances. 

All negative partial pressures, are then replaced by 
zero, and we form, 

Yfo = 2y.j, with j not equal to the check peak 
substances, and 



Y c = 2y 1 , with j not equal to the check peak 
substances or water or air. 



•c ~ ^j 



The percentages of water and air are then calculated 
as percentages of Yfc, and the percentages of the remaining 
non-check peak substances are calculated as percentages of Y c 

The output is punched as follows: On all cards: sample 
number and chemist number. On a header card: the observed 
pressure and the computed pressures Y a and Y b ; and the 
observed check peak heights and the calculated check peak 
partial pressures (the check peak residuals). On detail 
cards: the calculated percentages. Our present punching 
and listing practice calls for spreading this output over 
one header card and five detail cards for both the 20' th 
and 27' th order set ups. An example of a typical 20 'th 
order listing is attached to this write-up. 



169 



Since the elements of the observed peak height vector 
are presented one per card, the program computes the con- 
tribution to the twenty-seven partial pressures after each 
card is read and adds each contribution to the sum of 
previous contributions. This is block N of the flow chart, 
and is the main arithmetic work of the program. An address 
modification scheme is used to sweep the multiplication 
down the rows of one column for each card, and then to 
step from one column to the next on each feed cycle. 
Block N comprises about 170 instructions. 

Block K, which occurs on the first card of a new case, 
resets the card count to zero, clears the locations in which 
the y-L are accumulated, and resets the address modification 
words to the values required to start multiplication at the 
first row and first column. Block P, which occurs only 
for a card out of sequence, adds a spurious large number 
to the card count, so that Block C will cause punching of 
an error card at the end of the case. It is hoped that 
the labeling of the remaining blocks on the flow chart 
is reasonably self-explanatory. 

The program for the 27' th order set up comprises all 
told about 430 instructions and miscellaneous constants, 
plus the n 2 matrix elements, which are in a sense constants 
of the program. We take about five minutes to load the 
program and to run pre -computed test samples to check 
the loading. The calculations then proceed at approxi- 
mately 200 samples an hour for the 20' th order set up, 
and 150 samples an hour for the 27' th order set up. 

We like to think that these calculations provide a good 
example of the high degree of speed and economy which can 
be achieved when bulky repetitive calculations are routinized 
to take advantage of automatic digital computing. In 
conclusion we would like to express our thanks to Mr. 
W. C. Ferguson and the Union Oil Company of California 
for their cooperation in working out this procedure with 
us. 
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CALCULATION OF LOAD STABILITY OF AN ELECTRICAL SYSTEM 

J. E. Rowe 
Union Carbide and Carbon Corporation, 

Introduction 

In the operation of electrical pover systems emergency situations, 
termed faults, may arise which require rapid automatic switching equip- 
ment to reroute power and/or drop part of the load to maintain system 
stability j, that is, return to steady state operating conditions. The 
problem of transient load stability assumes a particularly important 
role when the system is composed of large blocks of induction motors 
operating close to the power limit such as those associated with AEC 
production facilities. 

The problems encountered in stability studies of this type are 
varied and no attempt is made to give the engineering or developmental 
aspects other than those of a historical nature. The Atomic Energy 
Commission, Carbide and Carbon Chemicals Company, Westinghouse Electric 
Corporation, General Electric Company, and others have devoted consider- 
able effort to the derivation of the equation representation of the 
electrical system. The Westinghouse Corporation in particular pioneered 
in the representation of the induction motor and the development of a 
computing technique (i). 

The classical method of solving transient stability problems has 
been through the use of an AC Network Analyzer j however, due to the 
size of the electrical systems and nature of the associated problems 
there are definite advantages to the digital method. These advantages, 
computing experience, particularly that on the 650, and time and cost 

'- ■ - — 11 1 1 1 1 

(i) Shankle, D. F., et al, "Transient Stability Studies - I Synchronous 

Machines", Power Apparatus and Systems , l6, 1563-8O, (February 1955). 
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comparisons "between digital and network analyzer methods are given. In 
addition a particular digital scheme based on the representation of the 
power Bystem by admittance constants and equation representation of 
machines and fault busses in the system is discussed. A fault will be 
considered as an abnormal voltage condition imposed simultaneously on 
all three phases at the fault bus. 
Mathematical Statement of Problem 

The voltage of each machine (il) is represented by a differential 
equation (ill) which is dependent upon its characteristics and the system 
admittance constants . 

where 

t = time as measured from the occurance of the fault , 

N = total number of machines in the power system, 

k « machine index (k = 1/ — *, m represents induction, motors, 

k = m + 1, , N represents synchronous machines, 

a. «* tdjne constant for motors, 

OL * oof or synchronous machines, 

p, e reactance constant, 

J 2 = -1. 
The slip~s k (t) and current i fc (t) are defined by the following relations: 



(il) A machine is used throughout to designate an induction motor, generator, 
or synchronous condenser. 

(ill) Concordia, C, "Transient Stability Studies - I Synchronous and 
Induction Machines - Discussion", Bower Apparatus and SyB terns , 
16, 1578-79/ (February, 1955). 
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(2) 
(3.1) 
(3.2) 
(3.3) 

and 

(3,10 

where 



dB k (t)/dt » 7yF\(t), 

To. (t) « accelerating torque * TLj^t) - P k (t)> 

H^(t) « load torque » o k Q + s k (t)J / 

Pj,(t) * power - real component of E k (t) i?(t), 



lv(t) 
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Ejt) Y. 
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1, 2, — , N, 

constant dependent on machine inertia, 



c. - constant dependent on load characteristics 



if - i k conjugate, 



L kn 



Y . a equivalent system admittance constant measured 



between machine k and point n in the system, 
KnO * machine index, 
N+l{ n<q ■ fault bus index. 
Equation (3.4) introduces fault bus voltages E n (t) for N+Kn4q. 
The equations for these voltages result from an application of Kirchhoff's 
law around the fault busses and take the form of linear simultaneous 
equations. 
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Equations (1), (2), and (3) are reducible by differentiation and 
substitution to a single system of second order non linear differential 
equations of order N. Although such a reduction results in a more concise 
mathematical statement, it obscure b the approach to the solution. Accord- 
ingly, equations (l) through (h) provide an adequate mathematical description 
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of the electrical system. 

Approximating the Differential System 

In order to ootain a numerical solution to equations (l) through (k) f 
it is necessary to approximate the derivatives in equations (l) and (2). 
In the case of the induction motor, i.e., equation (l) for ksl, — >% 
a first order forward difference approximation, dE k /dt:^E k (t4At)-E k (t) /At, 
is used, resulting in 
(5-1) E fc (t4At) -fe + jl20*s k (t) + i^ JAt E k (t) - J gj& At i^t). 

In the case of synchronous machines, i.e.., equation (l) for k=m+l,-> --,N, 

the representation 

(5.2) E k (t+At) =Qcos(l2QtA9 k (t))+ J sin(l2CttA9 k (t))] E k (t), 

is used, where A&ftJ^dQ,^ - s k (t)dt, 

Approximating the differential d© k "by the difference AB k haB an 
advantage over that used in (5.1) because it allows the use of a time 
increment At two to four times as large for the same accuracy. It has 
the additional advantage of maintaining a constant voltage magnitude, 
independent of the size of At. 

The first order difference is used to approximate equation (2), 
resulting in 
(6) s k ( t^t ) = 7^\( t )At + B k ( t ) . 

Equations (5) through (6) describe the transient behavior of a power 
system, with the accuracy of the approximation in equations (5) and (6) 
controlled with the choice of At. 
System Data and Computing Procedure 

Data for a study include the steady state voltage and slips for all 
machines, all constants, and system admittances. The admittance values 
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and constants are not time dependent but are subject to change when the 
fault is applied or removed/ when load is dropped in an effort to main- 
tain stability, and when lines are reclosed to return this load to the 
system. 

Equation (k) is solved repeatedly as t takes on its incremental 
values making it expedient to use matrix inverse methods. Predetermined 
faults and load droppings permit all admittance matrix inverse calculations 
to be made prior to a study; consequently these inverse elements become 
data rather than the Y's of equation (4). 

The first step in the calculation is to solve for E, (t) from equation 
(h) , then by use of equations (3), ^-S^) s ~P-J.*>)> TL,(t), and Tel (t) are 
evaluated in that order. These values are used to compute s, (t+At) and 

it 

E,(t+At), k = 1, ,N, from equations (5) and (6). The newly calculated 

quantities s, (t+At) and E,(t+At) replace the old values , and the entire 
process is repeated. The calculations are continued until t = one second 
or less, since the system's behavior can be predicted on the basis of its 
behavior during this period. This procedure is summarized in the flow 
chart shown in figure 1. 
Types of Problems and Programming Considerations 

The analysis and determination of the design of a power system 
require a computing program which is adaptable to a wide variety of net- 
works. Our experience has ranged from a theoretical system consisting of 
an infinite bus with one motor to a power network of ten equivalent induct- 
ion motors, seventeen synchronous machines, and four fault busses represent- 
ing a system load of 2.200 MW. The latter involves approximately 2100 words 
of data consisting of 961 admittances and approximately 100 associated 
constants; all are vector quantities having both magnitude and direction. 
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These and the voltages and slips which must be retained from one iteration 

to the next, place unusual demands on the memory of the computer. 

In order to reduce these memory requirements to the range of the 650 

only the distinct nonzero admittances and their indices (kn) are stored. 

The small number of these and the symmetry of the system reduce the 2100 

word requirement of the above problem to approximately 350* Since the 

nonzero admittances occupy different locations in the network, the table 

lookup feature of the 650 is used to locate the data. For example nonzero 

admittances Y, are stored in increasing order of kn. When the calculation 
kn 

calls for a given admittance, k is compared with n. If k-^.n the machine 
searches for Y. . If k> n, the machine searches for Y^, thus taking 
advantage of symmetry. If the table search does not reveal this admittance, 
it is treated as zero and the calculation proceeds to the next instruction. 

The forward facing methods result in equations (5-1) and (5-2). These 
were used rather than higher order approximations to minimize the quantities 
needed for each iteration. This representation also permitted a time incre- 
ment of .02 seconds for most studies. Motor torque is the calculation most 
sensitive to the choice of At. This effect is illustrated by figure 6. 
Test calculations indicate that time increments of .01 seconds during the 
fault and .02 seconds after the fault determine the critical switching time 
with an accuracy of .01 seconds. 

Having established the equations to be solved, calculating time iB 
minimized by the following: 

1. Pseudo optimum program. 

2. The matrix of Y's in equations (k) are not functions of 
time j therefore, the matrix inverse is entered as basis data. 

3. Addition of complex numbers can be done directly in rec- 
tangular form whereas in polar form they must be converted to rectangular, 
requiring the use of a square root and sine-cosine routine. 
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All decisions, such as changing line conditions, etc., are inter- 
preted by the computer and no operating or card handling iB neceBsary. 
Data which change in the course of a Btudy are loaded initially in the 
read hopper in the order in which they are needed, and reading is con- 
trolled by the program. 
Analysis of Results 

The results of a single study for a large network consist of approx- 
imately 20,000 words. In order to analyze these data, the voltage, Blip, 
power, torque, current, and identification associated with a machine at 
time t are punched into one card. The cards are sorted and listed in 
order by time under machine. 

Stability is best Judged from the motor accelerating torques or 
slips. Figures 2 through 5 are plots of these quantities) figures 2 and 3 
indicating motor acceleration and return to equilibrium, and figures h and 5 
indicating instability. 
Comparisons With Other Methods of Solution 

In solving stability problems on a network analyzer, it is necessary 
to spend considerable time setting up a network analogy on the calculating 
board, and should studies for the same power system be required at a 
later date, this setup procedure must be repeated. With the digital method, 
once data are assembled they can be stored on cards or tapes, and studies 
can be resumed at any future date with minimum effort. The network analyzer 
method requires a group of engineers supervising the study, taking data, and 
making analyzer settings 4 A procedure of this type necessarily introduces 
error, and is costly from a standpoint of personnel and machine time. The 
digital method can be carried on with one supervising engineer, one computer 
supervisor and at most one operator. The time per study is two-five days 
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on the analogue computer, ten hours on the CPC and one hour and twenty 
minutes on the 650 (based on At * .02 seconds ) . Digital methods in 
general appear to have a cost advantage ranging from five to seven over 
the analogue method. 

The 650 has distinct advantages over the CPC in that calculating 
time has been reduced "by a factor of eight, card handling is virtually 
eliminated, the automatic features eliminate operator errors, machine 
errors do not go undetected, and costs per study have been reduced by a 
factor of four. In four months experience with the 650, thirty different 
stability problems requiring forty hours of machine time were solved. 
During this period there was evidence of only one error in calculation 
and it was detected by the computer. 
Bwnffiary 

A digital method for studying power network stability has maximum 
utility When the computer has a large high speed memory, rapid input- 
output, and logical orders which minimize data handling and operator 
decisions. Experience has indicated that such a method is faster, less 
expensive, more accurate, and more flexible than the analogue method. 
The program as described for the 65O can be used to study any network 
represented by admittance constants and equations (5) through (6). 
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(Bi) enbaoi, Suxq.'BJiexsoov q/uso-iScE 



COMPUTATIONS OF UNIT COSTS IN POWER DISTRIBUTION 

J. C. English 
E. I. du Pont de Nemours and Company 



At the Savannah River Plant there are N areas, all of which use electricity and 
n of whioh produce electricity. Those areas which produce no electricity consume 
electricity from the generating areas. 




In the above diagram, Generating Areas 1, 2, ..«, n may export excess electricity 
to the reservoir area or they may import electricity from it. This is indicated 
by the two- directional arrows. The non- gene rating areas must import their 
electricity from the reservoir area. This is represented by the unidirectional 
arrows. In any given month, all arrows are unidirectional. 

The cost of generating electricity in any generating area will vary from month to 
month. The charge for excess electricity to the reservoir area by any excess 
generating area is the product of the quantity exchanged and the unit cost of 
generation for that area, The charge to the consuming areas by the reservoir 
area is the product of the quantity consumed by the area and the average cost per 
unit of electricity to the reservoir area. 

The Accounting Department of SRP is concerned with the accounting for this 
electrical power. The proper cost codes^'must be charged and the amount charged 
must be correct. 



(1) Number designation to denote a group of people working on a 
particular problem. 
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The quantities of raw material and of electricity used are readily determined 
from meters and other measuring devices. Most overhead costs are also known. 
But, because of the interdependence of the areas through the reservoir area, 
the unit costs are not easily determined. 

For each of the N areas there is a system of linear equations 

expressing relationships among the various unit costs Uj for that area. The 
unit costs for an area may be the cost per unit of electricity generated, the 
cost per unit of electrical distribution, the Cost per unit of river water, etc. 
The Q^j are quantities of electricity generated, electricity distributed, river 
water used, etc. All these Qjj are known since the quantities have been measured. 
The unit costs Uj are the unknowns which are desired. If all the X^ were known 
exactly, then the solution Uj could be obtained directly. The Xj_'s, which can be 
termed overhead, are not constant but are functions of the unit costs of electrical 
generation in the excess generating areas. The greater portion of the Xj_'s are 
salaries and other overhead items. 

While the values of the Xj_ r s are not known exactly, they may be estimated reason- 
ably well when the estimate is based upon the preceding months' values for the unit 
cost of electrical generation. 

If iterations are performed on the X^s, improved U-j result. If the first guess 
for the Xj_'s is moderately good, then the U-^ converge rapidly. 

The logical procedure used in solving this problem is: 

1. A guess is calculated for those Xj_ l s which are functions of the 
unit costs of electrical generation. This calculation uses the 
values of the unit costs of electrical generation from past 
experience „ 

2. The systems of linear equations for those areas producing more 
electricity than they use are solved using the assumed X^*s 
from (1). This yields for each excess generating area an 
approximate unit cost of electrical generation for that area. 

3. The new X^'s are calculated from these new approximations to 
the unit costs of electrical generation, 

U. Again the system of linear equations for eaoh excess generating 
area is solved. This gives a better approximation to the unit 
costs Uj for those areas. 

£« From the new approximation to the unit costs of electrical gen- 
eration, new Xj_'s are calculated. It has been found that these 
last approximations to the Xj_«s are sufficiently accurate, so 
that no further iterations are required. 

6. At this point, every system of linear equations is solved with 
the last approximation to the X^'s, Not only the unit costs of 
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electrical generation, but all unit costs for each of the N areas 
are now considered. With these unit costs, the Accounting Depart- 
ment has all the information required to account accurately for the 
plant power. 

7. As a check on the consistency of the data that has been processed, 
the Xj/s for each area are summed. Then ^CiU. is computed , where 

c j: ? Q i; ? as determined by the Accounting Department from their 
original data. If 2"x ± ^:2 C.U., there must have been an error 



1 



in the transcription of data 



i J 3 



8. The total cost for each area is computed by adding known quantities 

to Sc.u.. 

j J J 

9a The total cost for all areas is obtained by summing costs for each 
each area. This total should equal the total Power Department 
expenditures plus inter-area transfers. (Sum of power exchanged 
with the reservoir area). 

10. In the near future, the Computations Group will go on with the 
problem to show the distribution of power to the proper cost 
codes for each area. 

Before this power accounting problem was calculated on the IBM 6£0, the Accounting 
Department maintained a suspense balance. The amount of this balance was the 
difference between the book value of electricity and the amount the Accounting 
Department had charged to the areas. Each month the previous month's suspense 
balance was charged or credited to the various cost codes and each month a new 
suspense balance was evolved to balance the books. The suspense balance is no 
longer a necessity. 

This problem was done in the floating decimal mode of operation. The N systems 
of linear equations are solved using the floating decimal routine developed by 
G. R. Trimble, Jr. and E. C. Kubie of the IBM Corp., and the matrix inversion 
routine developed by R. W. DeSio also of the IBM Corp. 

The computational procedure is outlined below. 

The Accounting Department supplies the numerical values of the quantities of 
excess electricity produced by the areas that generate an excess. At the outset 
the machine tests to determine whether or not Generating Area 1 produced an 
excess of electricity. If it did, the machine solves the system of equations for 
Generating Area 1, and only the unit cost of electrical generation is maintained 
in storage. If the area does not produce excess, the routine goes on to the next 
area. The tests continue through the n generating areas after which the machine 
punches the unit costs of electrical generation for each area. 

Next, the routine calculates the unit cost of electricity m distributed by the 
reservoir area. This unit cost is the weighted average of the cost of electricity 
from all the excess generating areas. The total cost of transmission in the reser- 
voir area is also calculated. This cost is made up of salaries, material, and 
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transmission losses. Finally, the unit cost of river water is calculated for the 
reservoir area. 

Now those X4»s which are functions of the unit costs of the reservoir area are 
calculated. This brings us to (2) in the Flow Sheet. "With these new values for 
the Xj,'s, the routine is re-entered at (l). When the 650 has computed to point 
(2) again, it is allowed to proceed normally. 

At this time, the 3k are calculated for each of the N regions, after which each 
of the N linear systems is solved for the unit costs. Each set of unit costs 
U4 is punched as it is calculated. 

Originally, the Accounting Department prepared the input numbers in floating 
decimal form. Now they prepare the data with the decimal fixed, and a short 
routine transforms the numbers into floating decimal form. 



This work was done under contract AT(07-2)-l with the United States Atomic 
Energy Commission whose permission to publish is gratefully acknowledged. 
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ANTENNA PATTERN CALCULATIONS 



S. G. Fleming and R. Habermann, Jr. 
General Electric Company 

The calculation procedure discussed is a direct method of obtaining the 
far field antenna pattern from its aperture distribution. The shape of the far 
field pattern, particularly the gain and nature of the side lobes is of interest 
in many radar applications. Such patterns may be of the nature of the curve 
sketched below where the high central lobe and one or more of the small side lobes 
may be important. The magnitude is usually expressed in logrithmic units (decibels). 



Magnitude 





Angle 

This pattern is obtained by integration of the Fourier integral of the 
aperture signal distribution. However, practical antenna systems do not gen- 
erally yield expressions which may be directly integrated. Thus, many methods 
of solution using various measures for approximation have been proposed. A 
higher measure of precision may be obtained in the procedure described here as it 
involves only a direct numerical integration which may be done with as much care 
as is economically prudent. 




An arbitrary aperture plane xy is established at the face of the antenna, 
and the linearly polarized signal phase and amplitude are expressed by: 

F(x,y) - f (x,y) e^ (x ' y) 

Generally the most important portion of the antenna far field pattern is 
that in a small angular region about the z axis. The far field pattern in this 
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case is expressible as: 

E(G,0) =Jf P(x,y) eJ 2nA (x C0S + 7 Sln 0) Sin ° dxdy 

where X - wave length 

It is sometimes convenient to normalize the situation to allow for com- 
parison of related sizes of antenna of the same shape at different wave lengths. 
This also permits scale change in a single axis with a known effect on the pattern. 
The normalizing factors may be taken as the maximum dimension on each axis a and b. 
Thus, we establish new scales 

X = - Y = £ 
a b 

Another substitution is made, in some cases, to reduce the trigonometric 
operations 

2rra . _. a 
u = — :— sin 9 cos 
A, 

2rrb n ■. a 
v = —7— sin sin jo 

A. 

The working form of the field expression is then 

E(u,v) = a,b / / f(X,Y)(cos $ + j sin <]>) dXdY 

where $ = uX + vY + i*(X,T) 

The far field pattern is obtained by direct numerical integration of the 
preceding expression. The integration method used was the most elementalj dxdy 
being replaced by AxAy and the integral becoming a double summation. 

The interval size is determined by how fast the integrand changes its 
slope. The magnitude and phase functions, f and i^, at the aperture are gen- 
erally smooth. The rapid variation arises from the alternation of the sine and 
cosine terms due to the change in value of the uX and the vY terms. Since the 
integrand has a sine wave-type variation, the interval size is selected on the 
basis that 14 points per cycle give one percent error and 20 points per cycle give 
one-half percent error. A maximum error of one percent yields side lobes to 0.1 
decibel. The result of the integration is the far field in its complex form. 

E = g + jh 

To make the results useful, additional calculations are performed to get the 
magnitude and phase of the field. It is desired to have it expressed as 

E - Ae JP 

So, we must calculate 

2 2 
db. equivalent of A = 10 log (g + h ) 

P = tan — 
g 

We find this problem of particular interest as we have used several dif- 
ferent computers over the years to handle various proposed antenna designs „ 
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Experience on this problem started with the 602A. In this operation, 
the f (X,Y) and &KX,Y) were first punched into cards and many duplicate decks of 
cards were generated. From these the uX and vY products were calculated and ]j) 
was formed for the various u and v values of interest. The sines and cosines 
were formed from sorting in a table deck and second-order interpolating. 

The 604 came along and yielded vast speed-up of the operations. When 
machine modifications were completed, automatic sine and cosine calculations 
were used to reduce handling and sorting. 

The advent of the CPC cut out the mountain of intermediate calculation 
result cards. Although the theoretical costs were higher than on the 604> the 
simplification of the project with the reduced incidence of operator interven- 
tion made this machine useful on the project. Again with this machine there 
was still a considerable amount of card handling as the input hopper did not 
hold all the instruction cards necessary. 

The 650 has made this project fully automatic — the data and instructions 
are read in, and in due time the results are punched out . 

Other 650 applications in the antenna design area have been the calcula- 
tion of the field due to multiple antennas and the calculation of aperture field 
distribution. 



With multiple antennas, superposition of the fields is done by adjusting 
the individual complex field values for the proper phase relationships and adding. 

The aperture distribution may be calculated by the magnitude versus angle 
characteristic of the antenna feed. Various rays are established from the feed to 
the reflector, and thence to the aperture plane. 



Aperture Plane 




Feed 1 



The magnitude at the aperture comes basically from the angle leaving the 
feed and the phase is determined by the path length. As small differences in 
the path length are large compared with the wave length, the calculation of 
reflectance angle and path length require care in programming to preserve accuracy. 
In eight-digit floating point, arithmetic results of sufficiently high precision 
were obtained. 

Many of our projects in this field were initiated by Charles C. Allen of 
the General Engineering Laboratory of the General Electric Company. He has 
published some results of these calculations, and they appear in the 1953 Convention 
Record of the Institute of Radio Engineers. 
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CALCULATION OF PIPING SYSTEM EXPANSION STRESSES 

ON THE TYPE 650 



Marilyn Alfieri, Burton Whipple, and Pierce O' Neill 
General Dynamics Corporation 



The basic theory needed to develop detailed calculation 
programs for the evaluation of piping flexibility analysis on 
the Type 650 Computer is contained in many sources of published 
literature. The methods of solution presented in the M. W. 
Kellogg Company manual (Reference 1) were used at Electric Boat 
for hand calculations and, logically, have been used in the pro- 
gramming for automatic computation. 

METHOD OF SOLUTION 

The Kellogg method is applicable to piping systems of any 
shape or configuration, in a single plane or in space. The ap- 
proach is not restricted to the elementary problem of lines fixed 
at two ends, but can be used for any number or type of end fixa- 
tions and intermediate constraints, such as guides, rollers, pivots, 
links, etc. Constant stiffness throughout the system is not a re- 
quirement; the line can be composed of pipes of various sizes, 
thicknesses and elastic properties. The development is not con- 
fined to a consideration of the deformations due to bending and 
torsion alone, but permits the inclusion of the effects of tension, 
compression and shear, where these are considered significant as in 
the case of very stiff lines. The computation program described 
herein does not include these direct force and shear effects but can 
be easily modified to do so? 

The pipe ends or anchors and the intermediate constraints are 
termed load points. Complete fixation at a load point introduces 
three restraining forces acting in the directions of the axis of 
any orthogonal system of coordinates and an equal number of moments 
rotating about these axis. Since this equals the number of restraints 
required to maintain static equilibrium under any system of loading, 
six unknowns are implied for a line with two fixed ends and each 
additional load point will introduce six more unknowns. A lesser 
degree of fixation at a load point will reduce the number of un- 
knowns at that point. For example, a universal joint type of hinge 
will prevent all translatory movement while not restraining any of 
the possible angular movements and, accordingly, provides three 
reactions. 
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While the scope of the Kellogg calculating method is un- 
limited theoretically, certain restrictions become apparent in 
programming a practical general solution for the 650- Branch 
selection becomes quite involved if more than three load points 
are considered since several varieties of line configuration are 
then possible. A routine capable of calculating piping systems 
with three anchors and no intermediate constraints or the equiva- 
lent case of two anchors and one constraint was general enough to 
satisfy our most pressing computing needs. Our initial effort has 
been so directed. Elaborations on this basic routine plus modifi- 
cation for special cases will subsequently be initiated. 

The operating equations are established by considering one 
end of the piping system as fixed and located at the origin of the 
coordinate system. For a three anchor or branched line the origin 
is usually placed at the end of the common branch. If the other 
ends of the line are considered free of restraint against transla- 
tory and angular displacement the system becomes a cantilever beam 
fixed at the origin. When subjected to expansion the freed ends 
will be translated to new positions. In order to bring the freed 
end back into its original position (modified to include extraneous 
movements of the origin anchor and end anchor) certain forces and 
moments must be applied. The problem becomes that of finding the 
forces and moments necessary to apply at the load point in order to 
produce known deflections and rotations at the load point. 

It is expedient to solve for the internal forces and moments 
produced at the origin by the external loading instead of solving 
for the latter directly. The contribution of each individual load 
point to the total moments and forces at the origin are shown sepa- 
rately to permit proper redistribution. 

The equations for deflection and rotation at each load point 
as finally developed, are in terms of the unknown forces and moments 
at the origin with coefficients obtained by the summation of derived 
shaped coefficients reflecting the flexibility characteristics of 
each piece in the line and its location. 

The solution of these simultaneous equations provides the in- 
ternal moments and forces caused at the origin by each load point. 
From these the internal moments and forces at any point in the line 
may be determined and finally the stresses at the point. 

CALCULATING PROCEDURE 

The program for calculation on the Type 650 is broken down 
into the three major phases or "runs" of required calculation; 
computation of the equation coefficients, matrix solution of the 
simultaneous equations, and computation of stresses and reactions 
at required points in the line. For each problem to be solved a 
complete deck of properly arranged program and data cards for all 
three runs is processed in one continuous operation. 
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A detailed description of the required input data for ea<Jh 
run is provided in Appendix I. All input data cards and output 
cards are similar. The first fifteen columns are assigned to 
the various identifications required. Numerical data is punched 
in the remainder of the card in either ten digit or five digit 
fields as required. 

The program flow chart, provided as Appendix II, shows in 
detail the operations to be performed and the program selection 
required for each of the three runs. A brief description of the 
procedure for a three anchor or branch line follows: 

RUN I - Calculation of Shape Coefficients 

In setting up the piping system for calculation, a tri-axial 
coordinate system is established with the origin at the common or 
"C" Branch anchor. All members, or parts of the line, are assigned 
to planes parallel to the coordinate planes or in planes which may 
be rotated about a coordinate axis to achieve this condition. The 
necessary delineating data for each member together with factors 
reflecting relative stiffness and flexibility is punched in a card. 

The twenty-one shape coefficients of the member, either 
straight piece or elbow, are calculated and the results stored in 
memory locations determined by the plane of the member. If no 
plane rotation is required the results are transferred to the 
memory locations where the summation of coefficients is accomplished. 
When rotation is required the results go through the selected rotat- 
ing routine before being transferred. 

When the card for the last member in the line has been calcu- 
lated we have stored in memory the elements above the diagonal of 
a symmetrical square matrix of order twelve representing, when aug- 
mented by a column vector of constant terms, our set of twelve 
simultaneous linear equations. In Run II the constant terms are 
provided and the matrix solution is accomplished. 

Approximately 1650 instructions are required in the programming 
of this Run. 

RUN II - Matrix Solution 

The constants for our simultaneous equations are derived from 
the "restoring" rotations and deflections of the "A" branch and "B" 
branch ends of the line. These "restoring" movements are determined 
from the thermal expansion of the line and any extraneous movements 
occurring at the branch end or at the origin. Each constant is the 
product of the pipe stiffness, EI, and a rotation or deflection. 
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Each different combination of line temperature and anchor 
movement establishes an operating condition of the line. An 
"A rt branch and a »B" branch data card provide the set of equation 
constants for each such condition. The internal pressure for the 
operating condition, required in the calculations of Run III, is 
also read in and stored. A maximum of seven different conditions 
can be treated for solution at the same time. The limitation 
here is that of drum memory capacity. 

A method of solution for simultaneous linear equations with 
the same matrix of coefficients but different constant terms is 
described by Eric V. Hankam, (Reference 2). The matrix (A) re- 
sulting from Run I is augmented by the several column vectors lb) 
of constant terms. A composite matrix is then formed by adding 
an identity matrix (I) under matrix A and adding O-vectors under 
each b-vector. Reduction of this composite matrix results in the 
values of the unknowns appearing in the O-vector below the re- 
spective b-vector. 

Due to the wide range of values expressing the equation co- 
efficients we convert to a floating decimal point number system 
for the matrix reduction routine. The largest composite matrix 
contains twenty-four rows and nineteen columns. We take advant- 
age of the memory address system on the 65O by storing the matrix 
elements in drum bands 01 to 19- The mantissa of the first element 
is stored in 0101 with the exponent in 0151 and the last element 
has the mantissa in 1924 with exponent in 1974- The row and column 
location is thus easily defined. Note, however, that the address 
indicates the column first and then the row. This is the opposite 
of usual matrix element notation. 

After the matrix solution has been performed the results are 
converted back to fixed decimal numbers. 

For each condition we now have the moments and forces at the 
origin due to the "A" branch loads and the same for the "B" branch 
loads. These are stored for use in Run III and also punched out on 
cards identified as to condition and branch. Corresponding moments 
and forces for the two branches are summed for use m Run III as 
common or M C" branch reactions. 

The program for this run requires about 500 instructions. 

RUN III - Stress Calculation 

A data card, for each point in the line at which stress is to 
be evaluated, provides the necessary coordinate and dimensional 
information. The moments at the point are obtained from the laws 
of statics considering that part of the line which is located^ be- 
tween the origin and the point investigated. The forces remain 
the same throughout the system since intermediate constraints are 
not being considered. 
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The bending moment in plane of bend, bending moment normal 
to plane, and torsional moment are then calculated according to 
the plane of the member containing the point. The stresses due 
to these moments are computed and punched out. 

From these stresses and the calculated longitudinal pressure 
stress the combined stress following the Principle-Stress Theory 
(Rankine) is obtained and punched out. 

This routine is repeated for each operating condition of the 
line before feeding the data card for the next point. 

Approximately 350 instructions have been used in the program 
for this Run. 
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APPENDIX I 

INPUT INFORMATION FOR EACH RUN IN PROGRAM 

In addition to specific data noted below all data cards are code 
punched for their particular run and for job identification. 

Run I - Calculation of Shape Coefficients. 

Each member in the line has one input data card providing 
the following information. For straight members K » 1, 
cp - 1, and R - L (length). 

DIGITS DESCRIPTION 

XX 1 to 99 - Piece number of member 

X X, I, or Z - Plane of member 

X X, T, or Z - Axis of rotation of plane 

X S or E Type of member, straight or elbow 

X A, B, or C - Branch containing member 

XX. XXX K - Flexibility factor for curved 

member 

XX. XXX Q - Relative stiffness factor 

XX. XXX R - Bend radius of elbow or length 

of straight 

XX. XXX (1) a, b - Coordinates of member in plane 

XX. XXX (i) c - Normal coordinate of plane 

X.XXXX a - Angle of Tangent to member 

X.XXXX cp - Arc of curved members 

X.XXXX Y - Angle of plane rotation 
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Run II - Matrix Solution 

For each different combination of temperature, anchor move- 
ments and pressure which establishes an operating condition 
of the line one input data card for the "A" branch and one 
for the "B" branch provides the following information. 

DIGITS DESCRIPTION 

XX, XXX, Pj, - Operating pressure 

X,XXX,XXX,XXX. (±) 0X. - Rotation equation constant, "A" 

branch 

X, XXX, XXX, XXX. ft) 0Y. - Rotation equation constant, "A" 

branch 

X,XXX,XXX,XXXj (f) 0Z. - Rotation equation constant, "A" 

branch 

X, XXX, XXX, XXX. ft) AX. - Deflection equation constant, 

A "A" branch 

X, XXX, XXX, XXX. (±) AY. - Deflection equation constant, 

A "A" branch 

X, XXX, XXX, XXX. ft) AZ. - Deflection equation constant, 

A "A" branch 

X, XXX, XXX, XXX. ft) 0X B - Rotation equation constant, "B" 

branch 

X,XXX,XXX,XXX. ft) 0T B - Rotation equation constant, "B» 

branch 

X, XXX, XXX, XXX. (±) 0Z B - Rotation equation constant, "B" 

branch 

X, XXX, XXX, XXX. ft) AX n - Deflection equation constant, 

a "B" branch 

X, XXX, XXX, XXX. (f) AY n - Deflection equation constant, 

D "B" branch 

X, XXX, XXX, XXX. ft) AZp - Deflection equation constant, 

a »B" branch 
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Run III - Stress Calculation 

For each point in line at which moments and stresses 
are to be calculated one input data card provides the 
following information. 

DIGITS DESCRIPTION 

99 - Point number 

X, Y, or Z - Plane of member containing 
point 

A, B, or C - Branch containing point 
y, z - Coordinates of point 

- Angle of tangent to point 

- Section modulus of pipe 

- Outside diameter of pipe 

- Wall thickness of pipe 

- Curved pipe stress intensi- 
fication factor 



XX 


1 • 


X 


x, 


X 


A, 


xx.xxx (i) 


x, 


x.xxxx 


a 


xxx.xx 


SM 


xx.xxx 


OD 


xx.xxx 


t 


A-&.» aAJv 


& 
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APPENDIX II 



FLOW CHART FOR PROGRAM 
Run I - Calculation of Shape Coefficients 

(a) Load program for Run I 

(b) Feed data card containing piece number, plane, axis 
of rotation, type of member, branch containing member 
and K, Q, R, a, b, c, g, cp, y. 

Feed Data Card 





1. 


sin 


g 








2. 


cos 


g 








3. 


2 


g 








4. ■ 


sin 

1 


2g 








1 
Straight 








1 

Elbow- 


5. 


o = c„ 

a 






5. 


cos 2g 


6. 


o - c b 






6. 


g + cp 


7. 


sin 2g _ n 
24 C ab 






7. 


sin (g + cp) 


a. 


2 
cos g 






8. 


cos (a + cp) 


9. 


sin g 






9. 


2 (g + cp) 


10. 
11. 


2 
cos g _ n 

T2 ' " C aa 

sin g „ r, 
12 C bb 






10. 
11. 
12. 

13. 


sin 2 (a + 9) 
cos 2 (g + «p) 
cos g - cos (g + 9) 

sin g - sin (g + 9) 
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18. 











« S* 
a 


19. 











' s i 


20. 


QL3C ab 








' s lt 


21. 


QL3 °aa 








- S» 
aa 


22. 


QL 3 c bb 








= s ib 


23. 











= u J 


24. 











= T i 


25. 


QL 3 /12 








-"S 


26. 


QL(1 + 


3 


.6 


C bb> 


= u 


27. 


QL(1 + 


3 


• 6 C aa> 


» V 


28. 


QL 3.6 C ab 




=» w 


29. 


QL 








= S 



14. 
15. 
16. 

17. 
18. 

19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 

27. 
28. 

29. 



l/4[cos2 (o + <p) - cos2a] = C &b 
l/4[sin2 (a + 9) - sin2a]= G 
9 /2 - G - C a& 
9/2 + G = C bb 



KQR 2 C, 

c 

KQR 2 C, 



S a 
S b 



K Q R3 °ab "* S ab 

^aa °* S aa 
KQR 3 C bb = S bb 

1.3 QR\= u o 

1.3 QR 2 C b = v» 

1.3 QR 3 9 = w» 

QR(KC bb + 1.3 C aa ) = u 

QR(KC aa + 1.3 C bb ) - v 

QR C ab (K -1.3) - w 

KQR9 - S 



30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 



a + S» 
a 



S 
S 
S 
S 
S 
u 

V 

u»a 

cu = cu 



b + s b 

ab + S» . b + S» . a + S! 



ab 



a- + 2 S a • a + SJ 



b* + 2 S£ 



b + S bb 



'ab 



aa 



'bb 



a - w . b + u» = u 

b - w • a + u* = v. 

o o 

2 + vb 2 - 2wa»b + 2u» »a + 2v*-b + w* - w„ 
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X Plane 


c 


= s 


V 


■ 


A x5 


a O 


B » 

XX 


3 


B » 

xy 


■ s b 


B » 
xz 


" ' s a 


A » 

yy 


» V 


A » 

A yz 


■ w 


B » 
yx 





B » 

yy 


■ -cw 


B » 
yz 


= cv 


A zz 


■ u 



39. 


cv 




= cv 


40. 


cw 




= cw 


41. 


cu 
o 




» cu 
o 


42. 


CT o 







43. 


c 2 u 




2 
» c u 


44. 


c 2 v 




- C V 


45. 


c w 




= c w 


46. 


sin 


Y 




47. 


cos 


Y 




43. 


sin y 




49. 


2 
cos y 




50. 


2 Y 






51. 


sin 


2Y 




52. 


cos 


2Y 




53. 


1/2 


sin 


2Y 



Y Plane 

=» u 

= o 

= w 

=" cw 

■ u 

o 

° -cv 

■ s 

a 

a 
» o 



Z Plane 

■ v 

■ w 

■ 

» - cw 

■ cv 

- - v o 

■ u 

» o 

■ -cu 

■ cw 
" u^ 
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B » 
zx 


s 


u o 


B t 
zy 


=5 


-cu 


B ' 
zz 


=S 


cw 


C » 

XX 


a 


w o 


C » 
xy 


= 


-cu Q 


C f 
xz 


S3 


- cv o 


C » 

yy 


=5 


s bb+ c 2 u 


c » 

yz 


= 


-(s ab+ c 2 w) 


c » 

zz 


= 


s aa +c2v 



SI 


cv 


m 


- Y o 


= 


-cw 


=s 


2 

s aa +c v 


a 


" CV o 


a 


-(s ab+ c 2 w) 


= 


w o 


= 


" cu o 
s bb+ c 2 u 


= 



-s 



a 



S bb +c 2 u 
-(s ab+ c 2 w) 



= -cu 
o 

2 

■ s +C V 

aa 

» -cv_ 



= vr 



Rot. @ X 



Rot. @ Y 



Rot. @ Z 



For Rotation About X-Axis 



1. 
2. 

3. 

4. 
5. 
6. 

7. 

a. 

9. 
10. 
11. 
12. 



A » 
xx 



XX 



A£y cos Y - A£ z sin Y - A^ 
A xz cos y + A iy sin y 



xz 



B» - B 
xx xx 

B«y cos y - B£ z sin y - B. 

B* cos y + B » sin y " B 
xz ' xy ' .«.« 

A^. cos 2 Y + AJ Z sin 2 Y - A yz sin 2 Y 

A yz cos 2y 

B f cos Y - B* sin v ■ B „ 
yx ' zx ' yx 

B» cos 2 

B* cos 2 Y - B» sin 2 Y 
yz ' zy * ,, rf 

A» cos 2 y + A» sin 2 Y + At sin 2y 

zz ' yy " yz 



xy 

! 

xz 



zz yz yy 
+ (A^- AJ z ) 1/2 sin 2 Y - A yz 

T - B» x sin Y « B yx 

2 Y + BJ Z sin 2 Y - (B yz + BJ y ) l/2 sin 2 Y 

2 Y - B zy sin 2 Y + (Byy - BJ Z ) 1/2 sin 2 Y 



B_ 



yy 



B. 



yz 



zz 
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13 . B J x cos Y + B yx sin Y » B zx 

14. B» y cos 2 Y - B yz sin 2 Y + (B yy - B» B ) l/2 sin 2 Y - B zy 

15. B» a cos 2 Y + B^ sin 2 Y + (B zy + B yz ) l/2 sin 2 Y - B zz 



16. C» » C 

XX XX 



17. Cty cos Y - C xz sin Y » C^ 

IS. C xz cos Y + C^ sin y - C xz 

19. C^ cos 2 Y + Ct z sin 2 Y - C yz sin 2 Y - C^ 

20. C yz cos 2 Y + (C^ - C» z ) 1/2 sin 2 Y - C yz 

21. C» cos 2 y + C» sin 2 Y + C« sin 2y - C„„ 

zz ' yy ■ yz ' zz 

For Rotation about Y-Axis 

1. A^ cos 2 Y + At z sin 2 Y + A xz sin 2 Y - A^ 

2. A^ cos Y + A yz sin Y - A^ 

3. A xz cos 2 Y + (A» z - Axx ) 1/2 sin 2 Y - A xz 

4. B^ cos 2 Y + BJ z sin 2 Y + (B^ z + BJ X ) 1/2 sin 2 Y - B^ 

5. B xy cos Y + B zy sin y * B^ 

6. B iz cos 2 - B zx sin 2 Y + (BJ Z - B^) l/2 sin 2 Y - B xz 



7. A» = A 

yy yy 



3. A'„ cos y - A' sin y = A 

yz ' xy ' yz 

9. B» cos y + B» sin v = B 

y yx ' yz ' yx 

10. B» = B 

yy yy 

11. B' cos y - B» sin y = B 



A zz cos 2 Y + A^ sin 2 Y - A iz sin 2 Y = A^ 

B zx cos2 y ~ B xz sin ^ + < B zz " B xx> X / 2 sin 2 Y - B zx 

R» una v _ Bt a-in -./• = R 



yz ' yx ' yz 
12. 

13. 

14. B zy cos Y - B^ sin Y = B zy 

15. B zz cos 2 Y + B^ sin 2 Y - (B' x + B xz ) 1/2 sin 2 Y = B zz 

16. G^ cos 2 Y + C» z sin 2 Y + C Xz sin 2 Y = C^ 

17. C^ cos Y + C yz sin y - C^ 

IS. C. z cos 2 Y + (C zz - Cxx ) 1/2 sin 2 Y - C xz 
19. Ct = C 
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20. C yz cos Y - C^ sin Y - C yz 

21. C zz cos 2 y + C^ sin 2 Y - 0^ sin 2 Y - C zz 

For Rotation About Z-Axis 

1. AJ^ cos 2 Y + A^ sin 2 Y - A£ y sin 2 Y = A^ 

2. A^ cos 2 Y + (A^ - A^) 1/2 sin 2 Y - A^ 

3. A^ z cos y - A yz sin Y - A xz 

4. B^ cos 2 y + B^ sin 2 Y - (B«y + B yx ) 1/2 sin 2 Y - B^ 

5. B»y cos 2 y - B yx sin 2 y + (B^ - B yy ) l/2 sin 2 Y - B^ 

6. B xz cos y - B yz sin Y - B xz 

7. A^ cos 2 y + A^ sin 2 Y + A^ sin 2 Y - A^ 

8. A yz cos Y + A xz sin y = A yz 

9. B yx cos 2 Y - Bty sin 2 Y + (B^ - B^) l/2 sin 2 Y - B yx 

10. B yy cos 2 y + B^ sin 2 Y + (B^ + B yx ) l/2 sin 2 Y = B^ 

11. B' cos y + B» sin y = B„_ 



yz ' xz ' yz 



12 ' A zz - A zz 

13. BJ x cos Y - Bt y sin Y - B zx 

H. B zy cos t + BJ x sin Y - B zy 

15. B» - B 

J zz zz 

16. C^ cos 2 Y + C^ sin 2 Y - C£y sin 2 Y = C^ 

17. Cty cos 2 Y + (C^ - C^) 1/2 sin 2 Y = C^ 
IS. C xz cos t - C yz sin Y - C xz 

19. C^ cos 2 Y + C^ sin 2 Y + CJ^ sin 2 Y - C^ 

20. C yz cos y + C xz sin Y = G yz 

21. C» - C 

zz zz 

Sum and store the respective shape coefficients, A^ to C zz 

of all members in each branch. Also add the respective "C M branch 
coefficients to the "A" branch and "B" branch coefficeints. Sub- 
scripts denote branch. 
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EAxx A 


=3 


a il 














EAxy A 


= 


a 12 


^Ayy A 


= 


a 22 








EAxz A 


=3 


a 13 


ZAyz A 


= 


a 23 


EAzz A 


= 


*33 


SBxx A 


IS 


a 14 


2Byx A 


sat 


a 24 


EBzx A 


= 


a 34 


EBxy A 


= 


a 15 


2Byy A 


a 


a 25 


EBzy A 


= 


a 35 


EBxz A 


= 


a l6 


ZByz A 


- 


a 26 


EBzz A 


a 


a 36 


EAxx„ 
c 


3 


a 17 


EAxy c 


- 


a 27 


EAxz„ 
c 


rs 


a 37 


EAxy c 


= 


a lS 


2A yy c 


ss 


a 23 


EAyz c 


a 


a 3S 


ZAxz c 


= 


a 19 


EAyz c 


" 


a 29 


EAzz rt 
c 


a 


a 39 


EBxx„ 
c 


= 


a l,10 


EByx c 


as 


a 2,10 


EBzx rt 
c 


= 


a 3,10 


2Bxy c 


= 


a l,ll 


2Byy c 


SB 


a 2,ll 


EBzy c 


S3 


a 3,H 


EBxz„ 
c 


~ 


a l,12 


EByz c 


= 


a 2,12 


EBzz c 


=3 


a 3,12 



ECxx A - 


\k 






ECxy A - 


\5 


ECyy A - a 55 




EGxz A - 


\6 


2Cyz A - a 56 


ECzz A - a 66 


EBxx„ - 
c 


%1 


2Bxy c = a 5? 


EBxz c - a 6? 


EByx c = 


\& 


2Byy c - a^ 


EB y z c " a 6S 


EBzx c - 


a 49 


EBzy c - a 59 


EBzz c = a 69 


ECxx c - 


a 4,10 


2Cx y C ■ a 5,10 


ECxz c " a 6,10 


ECxy c - 


a 4,ll 


zc yy c a a 5,n 


Z °y z c - a 6,H 


ECxz c - 


a 4,12 


ECyz c - a 5>12 


ECzz c " a 6,12 
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EAxXg 


— 


a 77 












EAxy B 


=x 


a 78 


2Ayy B 


° 


*te 






EAxz B 


- 


a 79 


ZAyz B 


a 


a 89 


EAzz B 


= a 99 


ZBxXg 


a 


a 7,10 


ZByx B 


a 


a a,io 


ZBzXg 


= a 9,10 


EBxy B 


- 


a 7,ll 


EByy B 


a 


a 8,Il 


EBzyg 


' a 9,ll 


ZBxz B 


a 


a 7,12 


ZByz B 


" 


a g,12 


EBzz B 


" a 9,12 


SCxx B 


SB 


a 10,10 












2Cxy B 


=r 


a 10,ll 


2Cyy B 


si 


a ll,ll 






SCxzg 


« 


a 10,12 


ZCyz B 


= 


a ll,12 


ZCzz 


* a 12,12 



These are the 7& elements above the diagonal of a symmetrical 
12 x 12 A-matrix. Store for matrix solution in Run II after 
card for last member has been calculated. 



Run II - Matrix Solution 

(a) Load program for Run II 

(b) Feed data cards and store 

P N» 

X NA> ^ Y NA' Z NA' ^NA' AY NA» AZ NA 

X NB> ^ Y NB' Z NB> AX NB' AT NB> AZ NB 

for each of N operating conditions of line. 



X NA ~ b l,12+N 





Store B-Matrix Elements 


^ X 1A = b l,13 


0X 2A " b l,14 


^1A = b 2,l 3 


. 


Z 1A = b 3 ,13 


• 


*hk " \,13 


• 


AY 1A = b 5 ,13 


• 


AZ 1A = b 6,13 


etc. 



etc. 
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X 1B 

y iB 
0Z 



IB 



7,13 
'3,13 
} 9,13 



AX 
AY 



AZ 



IB D 10,13 
IB " b ll,13 
IB = b 12,13 



AZ 2B = b 12,14 



AZ 



NB 



5 12, 12+N 



Solve matrix for the moments and forces at the origin for each 
condition. 



M 



M. 



a 



"B 



X 



M. 



x. 



•V 



B 



M 



'B 



x 



n 



B 



^B 



F_ 



F. 



'B 



These 12 reactions for each condition are results. Store for use 
in Run III and punch out. 

Add "A n branch reactions to "B" branch reactions to obtain "C" 
branch reactions for each condition. 



M. 



x. 



«K. 



+ M. 



X T 



\A A B 

X'% + % 

M = M + M 
z c Z A Z B 

F ■ F + F 
x c X A X B 

+ F_ 



F 



^a ?b 

? + F 



"c "A "B 
Store these 6 reactions for each condition for use in Run III. 
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Run III - Stress Calculation 

(a) Load Program for Run III 

(b) Feed data card containing stress point number, 
plane and branch containing point and x, y, z, 
a, SM, OD, t, and 3. 



Common 



B 



For Point in Common Branch 

• y 



1# \ + F y * 2 " \ 

c v c c 



2. 



V + \ 



x 



3. M + F . y - F 

z c x c y c 



z 
x 



M i 

My 



For Point in "A" Branch 



l. K + F y A • Z " V y 

+ F_ . x - F„ . z 



x 



2. 



% 



x, 



3. M„ + F v . y - F. 



x, 



?A 



M x 
Hi 

M» 
z 



For Point in "B" Branch 



1. 


% + F y B • z " F z B • 7 * M x 


2. 


\ + % * x " \ * z ' "* 


3. 


\ + % • y - F y B • x ' M 5 



These three moments at a point for a condition are results. Store 
for punch out. 



4. Sin a 

5. cos a 
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"X'f-Plane 



"Y"-Plane 



"Z»-Plane 



For Point in "X" Plane 

6. M£ = ^ 

7. M» cos a - H» sin a = VL. 
3. M» sin a + W. cos a = ]VL 



For Point in "Y" Plane 



6. 



.a -Mjj 
3. M» sin a + M» cos a » IYL 



7. M^ cos a - M» sin a = M~ 



For Point in "Z" Plane 

6. MJ-My 

7. M* cos a - M » sin a ■ M„ 
£. IV^* sin a + MJ cos a - Mq 
9. P N (OD-t)At - S p 

5M c 

li. 03 r^ = s v 

12. C3 Mjj = S R 



13. C 



V 2 



3 Q 



14. "NS y 2 + S fl 2 

15. S B -S 



'B 



16. "N(S B -S p )* + (2 S Q ) Z - S L 



17. S B + 3 S + Sj 



Stresses S , S„. S Q and S are results at a point for a condition. 
Store for pun en out. 

If this is not last condition, return to Step 1 after branch selection 
and calculate same point for next condition. 

If it is last condition feed data card for next point. 



CATALYTIC REFORMER GAS PLANT EQUILIBRIUM CALCULATIONS 

E. V. Merrick and R. B. Perry 
The Standard Oil Company of Ohio 



The Process Engineering Division wished to calculate the 
Catalytic Reformer Gas Plant products at design conditions and at a range 
of operating conditions bracketing the design conditions. The results were 
to be used for: 

1. Current product planning work; and 

2. Design specifications for future refinery expansions. 

Figure I is a simplified flow diagram of the unit. It was designed 
to produce both a gasoline product (catalytic reformate) and a heating product 
(LPG), each of a desired quality and yield at the design operating conditions. 
If these operating conditions are varied, it becomes necessary to calculate 
the products obtained under the new conditions in order to see whether they 
are still within the quality and yield range desired. 

The problem programmed here is the calculation of these products. 
Initially, a feed stream M is taken into the first flesh zone. This feed 
consists of a known quantity and composition of product, F, from the reactor 
(not shown here), and an assumed quantity and composition for recycle, Rj,^ 
as dictated by a fixed hydrogen requirement in Ri« The composition of F will 
vary according to the degree of hydrocracking used in the reactor section. 

The vapor and liquid products (Vi and Ll) at the Product Separator 
are then calculated through the use of equations 1, 2, and 3 of Table I. 
The total recycle quantity r! is determined by the use of equation (A) and 
compared with R x . If not equal, R^ is used as Rn, with a composition proportional 
to Vi, and the calculation is repeated through the product separator. 

Upon obtaining a balance between the equilibrium in the Products 
Separator and Rj, we then proceed to calculating the rest of the unit. 

The equilibrium calculation through the remaining two flash zones 
is, of course, the same. However, the balancing of products in the unit 
after flash zone 1 is complicated by the interdependence of R2 and R3. R2 and 
R3 are assumed initially and V3 calculated; these calculations must then pro- 
ceed until the calculated R2 and R3 are constant quantities for each set of 
operating conditions and so that R2 equals V3. 
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As can be seen, high-powered mathematics are not involved in this 
problem; it is simply a voluminous arithmetic problem, largely repetitive in 
nature with a trial-and-error approach used in assuming initial recycle quan- 
tities (R]_, R2> and R3), followed by equilibrium calculations in three sections 
of the plant — the Products Separator, the L. P. Flash Drum, and the Depropanizer 
Reflux Drum. Material balance calculations are made at the depropanizer and at 
the deethanizer. Here are used empirical equations based on design conditions 
(Table I). 

The problem was programmed in two parts: 

Part I - Calculations through the Product Separator Section; 

Part II - Balance of the plant - the calculations being continued 
upon a basis of selected results from the Part I 
calculations. 

Figure 2 is a block diagram for the flow of calculations. When Figure 1, 
the simplified flow diagram of the Gas Plant, is compared with Figure 2, it is 
clearly seen that our 650 program is in essence a simulation of operations in 
the Gas Plant. 

Part I of the program used 422 instructions, 5 constants, and a 
working area of 110 locations. A total of 60 cases were computed in 39 minutes. 
The number of cases depended on variations in T]_, Pi and F (Figure 1) . 

Part II used 599 instructions, 13 constants, and a working area of 
195 locations. It is estimated that the 650 went through more than 75,000,000 
operations to compute Part II. A total of 729 cases was computed in approxi- 
mately 60 hours . The number of cases depended on variations of T2 and P£ and 
T3 and P3. 

There were no programming difficulties once the problem was defined » 
Some minor scaling problems, discovered in testing the program, were quickly 
solved. Five decimals were used throughout the problem wherever possible, so 
that accuracy was maintained to a finer degree than possible by hand calculations. 
(Material balances check within 0.01$ - See Table II 



P0£ 



The problem analysis and programming totalled approximately 425 man- 
hours. The job breakdown for this total is as follows: 



Problem analysis 


- 


19 % 


Discussion and review 


- 


18 % 


Block Diagram 


- 


6 % 


Coding 


- 


23 % 


Checking of routines 


- 


20 % 


Program testing on 650 


- 


U% 



We have estimated that it would take an engineering assistant 
approximately 6000 hours to obtain by hand the results that the 650 has 
given for this problem. In contrast, the 650 machine time totals less 
than 61 hours. 
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TABLE I 




Equations Used 


Equilibrium Calculations 




Ki Mj 


= v i 


L/V * + Ki 




n 


= V 


M - V 


= L/V 



(1) 

(2) 
(3) 



— T 
Ri Determination 






(ri ) (4) 



Where 



M= total mols/hr. of feed (F [or L] + R). 

Mi = mols/hr. of each component in feed. 

vi = mols/hr. of each component leaving flash zone as vapor. 

Ki = equilibrium factor for each component in feed at the chosen 

Temperature and Pressure. 
V= total mols/hr. of vapor in equilibrium. 
L = total mols/hr. of liquid in equilibrium, 
vi = mols/hr. hydrogen in Vj. 
r^ = mols/hr. hydrogen in R 1 (specified) 

Equations Used in De-C a and De-Cs Sections : 

D+W=L=L L +L 2 L n (5) 

D=a l L l +a 2 L 2 a n L n (6) 



Where — 



W = biL 1+ b 2 L 2 b n L n (7) 



D = Overhead Product 

W = Bottoms Product 

L. = mols/hr. of each component in feed. 

a. = design constants, a + b. = 1 



0i . * Assumed value 



TABLE II 

Example: Material Balance Check 

Normal Hydrocracking - Case No. 141 

Mols/Hour 



Feed (F) 




Products: 




G l 


1324.0 


G 2 


61.0 


S l 


1062. 8 


S 2 


44.9 


G, 


27.5 



2520. 



Total 



2520.2 



2/2520 < 0. 01 7o 
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FIG. I - CAT. REFORMER GAS PUNT 



PART I 



-H<- 



PART II 



/*■ 



M l(- F + R |) 



I 



F'AS" ™HF I 



PRODUCT 

SEPARATOR 

Si ■■ 



fl 2(= V 2) 



^2. 



t-LASH JANE * 



L.P. FLASH 
DRUM 

P 2 ) "* 



DE-PRO- 
PAN I ZER 



s,(*w,) 

(GASOLINE PRODUCT) 



V 3 (=R 2 ) 



FLASH ZONE 3 



DE-PROPANIZER 
REFLUX DRUM 

P 3 ) 3 



6 3( = D 2) 



DE-ETHA- 
NIZER 



(LPS) 
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A METHOD FOR THE EVALUATION OF NON-LINEAR SERVO-MECHANISMS 

BY NUMERICAL INTEGRATION 



W. Barkley Fritz 
Westinghouse Electric Corporation 



An early and interesting application of the IBM 650 computer, recently 
installed at the Air Arm Division of the Westinghouse Electric Corporation, has 
been the evaluation of non-linear servo-mechanisms by numerically solving the 
differential equations for the dynamics of these systems. Discontinuities in 
these servo systems are of particular interest. The mathematical models and 
computational procedures are presented for the solution of two such problems, 
each formulated by Dr. K. N. Satyendra of the Air Arm Division. The single- 
step Runge-Kutta integrating procedure is used to integrate the equations. 
This procedure is particularly efficient since it requires no special starting 
values, makes no unreasonable demands on storage, and allows the integration 
interval to be easily and automatically changed as required. 

The first problem concerns the obtaining of a time history, as 
affected by the non-linearity in the radome, of a servo-mechanism used in the 
antenna drive of an airborne fire control system. 

The equation to be solved may be expressed as follows: 



dt 2 



A(y * &) 
dt 



+ B + 2 (x + — ) 
dt 



At t = 0, y = dy/dt » 0. Moreover, x may be constant or may be a 
function of time. The problem is to integrate until y exceeds some ymax. 
Typical values of A and B, as they change with the dependent variable y,are 
as follows: 





A 


B 


0<y - 1 





-i 


1*7 * 2 


-1.5 


o.5 


2*.y 1 3 


U.5 


-2.5 


3*y * 5 





-l 


W * 6 


7.5 


-2.5 


6*y * 7 


-10.5 


0.5 


7<-y - 9 





-l 

...J 
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Under the assumptions that y(t') is continuously differentiate and x(t) 
is known, an analytic solution can be given for each interval. The matching 
of these solutions at the change-over points requires the solution of a system 
of transcendental equations for which the error can be controlled. This procedure 
and another method based on interchanging dependent and independent variables 
are possible alternatives to fairly straightforward integrating procedure to be 
described. 

In order to get accurate starting values for the new equation to be 
solved when y leaves one region to enter another, it is necessary to obtain 
accurate values for t, dy/dt, x, and dx/dt, when y equals the change-over value. 
These values may be obtained by integrating at some convenient interval until y 
exceeds the change-over value. Then, returning to the step just before this y 
value is exceeded, the integration step size is halved and again integrated. If 
y still exceeds the change-over value, return to the former results, halve the 
integration interval, and repeat until the newly computed value of y is less 
than the change-over value. The integration interval is once more halved, and 
computation proceeds as indicated until the computed value of y is equal to the 
change-over value to within some €, 

The procedure is illustrated in Figure 1. 





























I 


II 




III 






V 






Read in 
program - 

and 
constants 


Read in 
\ input data 
i = 




Integrate by single 
step method; punch 
results 


r £ 


V 


yes 




Is ?1 + 1 in 

the same region 
as y ± ? 




, 


c* 




s yi + i>w" 


no 






































yes 




















l + l-*i 




VI 


VIII 


no 


VII 






\ 


' 




Shift . 
Storage 


^ Halve h 


• — 


15 y i + 1 -y,|<<r 














yes 








IX 








4 


Reset h to 

original 

value 













































Figure 1. Simplified Flow Diagram of Radome Non-linearity Program. 
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It has been pointed out that this procedure could give a very poor value 
for t if dy/dt is small at the change-over point. Fortunately, this is not the 
case in the physical problem actually solved by this technique? however, in general, 
it would be best to replace this condition of box VII with some other relation. 

An alternate method may be used for the regular step-by-step integration 
as follows: 

(1) 

1. Integrate, obtaining values y i+1 with a single step h. 

(2) 

2. Integrate, obtaining values Y±+i/2> Ji+1 with two ste P s each a * 
the interval h/2. 

3. Substitute these values in the Richardson extrapolation to zero 
grid-size formula 

in which k is the order of the method used. 

The value y^+i is then taken as the starting value for the new step 
which proceeds as indicated, using the same discrimination procedure to determine 
when the change-over value of y has been obtained. During the halving process, it 
is unnecessary to use the Richardson formula as part of the procedure because of 
the nearness to the change-over value of y and the fact that the new procedure 
already involves a halving process. Either procedure can be used to integrate the 
second order equation by using an assigned integration interval. Interpolation 
might be used to obtain values of t, dy/dt, x, and dx/dt, for which y equals the 
required change-over value. However, this procedure requires a knowledge of the 
behavior of the solution to determine the type of interpolation to use as well as 
the necessary special coding to perform the interpolation. The procedures out- 
lined make use of an integrating process to approach the correct solution and 
provide control over the accuracy obtained. 

A second problem concerns equations that represent the dynamics of a 
non-linear servo-mechanism with backlash, viscous damping, and coulomb friction. 

Mathematically the problem can be stated as indicated in Figure 2. 
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(1) dz m _ ( VV V K 1 ( V 
dt < J m +J .« ) 


|) ± F - K 2* 




d y m _ • 

dt 


s m 




At t = 0, y m = y, = 


d y m = 

dt 


<& = 
dt 


o, 










Integrate (l) until B^ = 


J d 2 y 
dt 2 


* D x 


dy -t- F 

•'m — 

dt 


changes sign. 


The sign 


of F 


is the same as ^m 
















dt 
















Then integrate 
















(> = * 


dz, _ 
dt 


i ( a 


Zjt ±F) 










(2)1 
















2«-. 

V dt z » 


dz m _ 
dt 


l 

' J m 


( D m z m + 


Kl7 • 


-KjpO 






until Gj_ = y + b changes sign. 














Next, change the sign of 


b/2 ir 


. (1) 


as well 


as in 


the definition of 


jj_ and 


let j £ replace y m in B ± 


and Gj. 


The systems 


are < 


again int 


egrated as 


before 


completing one cycle. 

















Figure 2. Non-linear Servo with Backlash Equation. 

Obviously y £i y^, z_^, and % are dependent variables with t the indepen- 
dent variable. Values of D^ D^, J^, J^, K]_, K2, b/2, and F are given and remain 
constant for each case. 

In order to keep the emphasis on the solution techniques involved, the 
engineering aspects of this servo mechanism with a forcing function will not be 
discussed. 

The complete computational procedure is illustrated by Figure 3. 
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Figure 3. Simplified Flow Disgram for Solution of Non-linear Servo with Backlash. 



226 



Each of these problems requires the solution of a series of differential 
equations, each valid within a clearly defined region of one of the dependent 
variables. The same type of integrating process is required in every case in order 
efficiently to take care of the discontinuities present. The basically essential 
feature is that the integrating procedure be of the single-step type, i.e., that 
the integration of the system proceed from values of the variables at just one 
preceding time step. 

Among the possible single-step integration procedures is one that is 
usually designated as the Runge-Kutta method. This method appears to be a 
particularly attractive one. But after reading the objections presented by Milne 
in his text, Numerical Solution of Differential Equations Cl]] , it may be considered 
desirable to try something else. Milne first points out that each step requires 
four substitutions into the differential equation (s) which, for complicated 
equations, may demand an excessive amount of labor per step. Milne, in the second 
place, notes the absence of any simple means for detecting machine failures or 
for estimating the error. 

This first objection is based on the assumption that one is using a desk 
computer to do the computation. Actually, the very "repetitiousness" of this 
procedure is an advantage when using a reasonably fast automatic digital computer. 

The second objection is a more serious one, however, and must be 
answered in greater detail. The absence of built-in checks for machine errors is 
not really very important when one is using a present-day automatic digital computer. 
As for the estimate of computational error, Bieberbach C2J has found an expression 
which gives an upper bound for the error at a given step; however this estimate 
requires, as does an improved bound by Lotkin Q33 ,the computation of additional 
quantities which do not already appear in the basic computation. Further, this 
error is only a bound, and may force one to reduce the integration interval even 
unnecessarily so that the computation time becomes excessive. 

The procedure of extrapolation to zero grid size, as used to improve 
the solution, has been shown by Gorn LU3 effectively to transform any integrating 
procedure into a new integration of one higher order at the cost of multiplying 
the time approximately threefold. Whether this is practicable or not will depend 
on such factors as the local situation, the machine time available, the accuracy 
required, and the independent checks available. What is important is that the 
error can be controlled in the Runge-Kutta procedure. Moreover, the method is 
exceptionally efficient. Although care must be exercised in its use, its several 
advantages require that it be given consideration as a general automatic computing 
technique for integrating systems of differential equations. Specifically, these 
advantages are: 

1. No special starting procedure is required. 

2. The integration formulas do not change when the step size must be 
varied, as required by the problems just considered. 

3. Only the values at the previous time step need to be stored. 



227 



Each of these advantages means a saving in coding time and machine space. 
In fact, the Runge-Kutta procedure requires less machine storage than the methods 
of Adams, Milne, or other procedures of this type. Putting this another way, the 
IBM 650, or any automatic digital computer, can store the program for solving a 
higher order system by using the Runge-Kutta procedure than it is capable of 
storing by using methods which require the saving of values from a number of 
previous integration steps. 

It is important to point out that the Runge-Kutta method is a fourth 
order method (k-2j in the previous notation) j that is, the error excluding round- 
off goes to zero as the fifth power of the step size. It is therefore equivalent 
to approximating the solution locally on intervals of length h (the step size) by 
polynomials of the fourth degree. Adams' and Milne's methods are equivalent in 
this respect. 

It should be mentioned that Gill [ $ 3 has modified the Runge-Kutta 
procedure so that only three registers of storage per dependent variable are 
required instead of the four required by the unmodified method. Gill's modi- 
fication serves to emphasize the usefulness of the Runge-Kutta procedure. 

To conclude, information on the stability of non-linear servo mechanisms 
has in the past been obtained by graphical methods like the describing-function 
technique as exemplified by the work of Johnson £6} and others. Such graphical 
methods fail to yield data on the transient behavior of the system as a whole. 
The technique presented in this paper provides a powerful tool in the hands of 
automatic control systems engineer since the complete time-history of the system, 
both in its transient and in its steady state, can be accurately described. Finally, 
the single-step integration, as exemplified by the Runge-Kutta procedure, has been 
successful in solving several of these discontinuous problems and offers consider- 
able promise of helping the engineer to exploit the digital computer for the more 
effective design, development, and evaluation of airborne electronic control 
equipment. 
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IN X-RAY CRYSTAL STRUCTURE ANALYSIS 
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Abstract 

The electron density p at a point (x,y) in a crystal 
lattice as projected on a plane is given by 



p(x,y) = J 2 S F(h,k) cos2*(hx+ky) 



S 



for a centrosymmetric crystal, where F(h,k) is a function 
of the diffraction intensity of the x-ray spectrum with 
order indices h,k as produced by the crystal for a given 
x-ray wavelength, and S is the area of the periodic unit 
cell of the crystal lattice. For practical purposes, the 
Fourier synthesis must be evaluated at all the points of 
a grid sufficiently fine to allow the electron density to 
be mapped in detail. A complete program was evolved for 
the type 650 which automatically computed the sum (which 
may contain over 200 terms) at each point in turn to cover 
5000 points of a 100 x 100 line grid. Such a program was 
found to be unfeasible for this type of machine because of 
its great length. Alternatively, a program was developed 
based on the expanded form of the series: 

S.p(x,y) o E £ Ai(hk) cos2rthx cos2rtky -22 Aathk) sin2rthxsin2jtky 
h k h k 

Each of the above summations is carried out in four parts 
for which h,k are even-even, even-odd, odd-even and odd-odd 
respectively, over one quarter of the cell in each dimension 
(676 points). The results are punched with 13 sums on one 
card, the cards merged and tabulated to extend the calculation 
over the whole unit cell and obtain the printed report. The 
computer program reads the A(hk) values from single-entry 
cards (bracketed by lead and trailer cards) into a table on 
the drum. Cosine values are stored in a table for which only 
26 entries are required. By means of a series of loops the 
values of 

C = 2 A(h,k)|g^|athx 
h 

are evolved for each k at 26 values of x, and stored in a 
new table. The C values form the coefficients for the second 
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calculation 

k 

which is initiated as soon as the C tahle is completed. 
These final sums are punched in groups of 13 on one card 
as they are formed. Tests of the program indicated that 
the type 650 will complete one series with 50 terms at 
676 points in approximately 20-25 minutes, without optimum 
programming . 

I . Introduction 

The science of the deduction of the arrangement of 
atoms in crystals from x-ray diffraction data depends on the 
routine execution of large numbers of calculations based on 
moderate amounts of experimental data. These calculations fall 
into a number of well-defined groups, as follows: 

1. Data preparation: the correction, scaling, 
normalization and adjustment of experimental data 
for subsequent analysis. The body of experimental 
data, which consists of the diffraction intensities, 
may vary from a hundred or less to several thousand. 

2. Fourier synthesis: the synthesis of the electron 
density in the crystal, or a function of it, from 
the adjusted data. 

3. Structure factors: the determination of theoretical 
values of the diffraction intensities from a given 
model crystal structure. 

k. Least squares analysis: the refinement of the 

accepted structure by least squares analysis of the 
structure parameters based on the structure factor 
function. 

For a given crystal structure problem, the last three 
types of computation may be repeated a considerable number of times 
in an interative fashion. All crystal structure analyses will make 
use of the same types of calculations, with only slight modification 
from one problem to another. It is natural therefore, that consider- 
able effort has been made in recent years by various laboratories 
to adapt various IBM machine types to these calculations. With the 
advant of the type 650, it is apparent that a far more powerful 
computing instrument than has heretofore been generally available 
will soon be accessible to many x-ray crystallographers . 
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The work to be described herein vas initiated in 
anticipation of the need for crystal structure computing programs 
for the type 650. The Fourier synthesis, while not as important 
to the science as least squares analysis, was programmed first 
as a fair and well-defined example with which to test the capa- 
bilities of the magnetic drum calculator. 

II. The Fourier Synthesis Function 

In a crystal structure the electron density at any point 
may be expressed as a Fourier series: 

00 00 00 

p(x,y,z) m--z-LL |F(h,k,l)| cos2n[hx+ky+lz+a(h,k,l)] 

• 00 —00—00 

h k 1 

where p(x,y,z) = electron density at the point x,y,z; 
V = volume of the unit repeat cell of the 

crystal; 
F(h,k,l) » structure amplitude, function of diffraction 

intensity; 
h,k,l = orders of diffraction image (integers); 
a(h,k,l) =« phase angle associated with F(h,k,l); 
x,y,z a coordinates of the point in question 

expressed in fractions of the unit cell 

edges. 

This is the most general expression, but usually the crystal 
has symmetry which allows certain simplifications. For example, if 
the crystal has a center of symmetry, then for each atom at x,, y., z. 

(origin a symmetry center), there will be an identical atom at - x., 
-y> -Zi> and the structure amplitude becomes real, with a(h,k,l) «* 

restricted to or l/2. Further, it is frequently convenient to set 
one index h,k or 1 equal to 0, making p(x,y,z) independent of the 
corresponding coordinate x,y or z, thus reducing the problem to a 
two dimensional one. Nowadays, however, the solution of three- 
dimensional non-centrosymmetric problems is becoming more and more 
frequent . 

In any case, a considerable amount of calculation is 
involved since p(x,y,z) must be evaluated at a large number of points 
in order to permit the electron density to be mapped in sufficient 
detail for the purpose of the investigation. To obtain such a map, 
it has long been customary to divide the unit cell edges into 60 
parts each, thus forming a three dimensional grid of 216,000 points. 
When symmetry is present, it may be necessary to compute p(x,y,z) 
at only l/2, l/k, or l/8 of these points. But each series will 
contain several hundred or several thousand terms. 



231 



III. Adaptation of the Fourier Synthesis Problem 

to the Type 650 

In this early phase of the study the type 650 was programmed 
to carry out a two-dimensional synthesis, in order to evolve a 
procedure which can be readily extended to the third dimension. 
The first effort resulted in a program designed to compute p(x,y) 
at each point in turn beginning at 0,0. In all these tests, the 
unit cell edge interval was l/lOOth instead of l/60th. The values 
of p(x,y) were gathered and punched out 15 to a card. All possible 
modifications required for the 17 different symmetry groups were 
included in the program. Without giving any more detail, it will 
suffice to say that the program was rejected because a simple 
calculation showed that the synthesis of a 200 - term series at 
5000 points would require approximately 150 hours continuous machine 
time. The conclusion is that this approach to the problem is not 
satisfactory for any magnetic drum calculator, unless results are 
required for only a few specific points. 

Recourse was then made to a procedure which has long been 
used in hand methods of computation. The electron density Is 
expressed as follows: 

00 CO 

p(x,y) - I £ E tA(h,k) cos2«(hx+ky) + B(h,k) sin2rt(hx+ky)] 

-09 -CO 

h k 

where S «= area of unit cell in projection; and 

A(h,k) + iB(h,k) - P(h,k). 

When there is a center of symmetry, B(h,k) » and the function 
may be written: 

00 to 

p(x,y) ■ | S E [Ai(h,k) cos2i£hx cos2«ky - Aj»(h,k) sin&tx sin&tky] 
S o o 
h k 

where A x = A(h,k) + A(h,k); 
A2 - A(h,k) - A(fi,k). 

Each summation is now carried out in two parts, with the results of 
the first part being used as the coefficients for the second, e.g.: 

CO 

C(x,k) = 2 A x (h,k) cos2ithxj 
g 



oa 



S x = 2 C(x,k) cos2Kky 

h 
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The series may conveniently be further separated into groups 
according as h and k are odd or even. This procedure results 
in the summation "being required for only the first quadrant in 
each dimension, or at 676 points for two dimensions (x » to 
O.25, y ■» to 0.25). The various odd and even subsums may 
then be combined with appropriate signs to expand the calculations 
over the whole unit cell on the tabulator. 

The procedure for computation is as follows: 

1. Determine A,(h,k) and A 2 (h,k) (also Bi(h.k) and 
Ba(h,k) if crystal is noncentrosymmetric ) . 

2. Divide Ai(h,k)(and each of the other groups of 
coefficients) into four groups where h,k are 
respectively even, even; even, odd; odd, even; 
and odd, odd. 

3. Feed one set of coefficient cards (say Ax(even, even)) 
in the type 650 and compute the subseries. 

k. Punch out the results of the subseries on 52 cards 
and read in the next set. Continue (automatically) 
until all subseries are calculated. 

5. Sort the sum cards and tabulate to produce the final 
table of electron density values. 

IV, The Type 650 Program 

In computing the subseries at 676 points, the program 
carries out the following operations: 

1. Read in a lead card (indicating type of sum), the 
coefficient cards carrying h, k and A(h,k), and a 
trailer card (indicating end of group and initiating 
calculation). h|k|A(h,k) stored in a table. 

2. Compute the first sum (EAcos2«hx) in parallel for each 
k, for 26 values of x in turn, and store the results 
in a table. 

3. Compute" the second sum (ZCcos2nky) in parallel for 
26 values of y using the coefficients stored in (2) 
and punch the result on two cards. Repeat this 
calculation for 26 values of x, and return to (l). 
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Further details are listed below: 

la. x and y are initialized at 0; h and k are initialized 

at or 1, according as they are even or odd respectively 
(digital indication on lead card: 1 for even, even; 
2 for even, odd; 3 for odd, even; k for odd, odd). 

lb. Program set to calculate appropriate cosine-sine 

combination (digital indication on lead card: 1 for 
cos-cos; 2 for cos-sin; 3 for sin-cos; k for sin-sin). 

2a. hx formed and cos [sin] 2ithx determined. 

2b. A(hk) found by table look-up on hk. Table word is: 

+ xxxxOOxxxx. Sign is sign of A(h,k). 
— v-'V v - « — ' 
h k A(h,k) 

2c. Find partial sum (address 1900 + k). add A cos2*hx, 
restore. Add 2 to k, return to (2b). At end of k, 
add 2 to h, return to (2a). 

2d. At end of h, add 1 to x, transfer completed sums to 
intermediate table, and return to (2a). At end of x, 
continue to (3). 

3a. ky formed and cos[sin]2rtky determined. 

3b. C(x,k) formed by table look-up on xk. Table word 
is: + xxxxOOxxxx. Sign is sign of C(x,k). 

x k C(x,k) 

3c. Find partial sum (address 1900 + x). add C cos2nky, 
restore. Add 1 to x, return to (3b). At end of x, 
add 2 to k, return to (3a). 

3d. At end of k, transfer completed sums for x » to 
0.12 to punch band (2 values per word), with series 
indications, and punch. Repeat for x = 0.13 to 0.25. 
Add 1 to y, return to (3a). 

3e. At end of y, return to (l). 

An overall block diagram is illustrated in Fig. 1. 

The cosines and sines are evaluated by table look-up. All 
angles 2rthx and 2itky are formed as cycles (360 = 1.00), whereof the 
mantissa only is retained, varying from to 0.99* Thus, with first 
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quadrant reduction, only 26 cosine values are required for the table. 

The coefficient cards are sorted on h and k, k within h, 
"before being read into the machine. Only significant coefficients 
are included. In step (2b), if no coefficient is present for the 
given hk index, the next highest k is obtained, and the new k 
substituted for the old in temporary storage. Thus, no computing 
cycles are carried out for zero coefficients. 

V. Tabulation of the Results 

To obtain the final printed table of electron density 
values, the punched results of the calculation of the various 
subseries as obtained from the type 65O must be reassembled and 
tabulated. The entire output of cards if first separated (by 
means of an indicating punch) into those carrying the results for 
y = to 0.12 and those for y = 0.1 5 to O.25. Each of these decks 
is then sorted on x (punched by the type 650 as an indication). 
With an appropriate lead card, this deck will produce in the type 
l»-07, for example, any desired l6th section of the projected unit 
cell. In the most general centrosymmetrlc case, there will be 
eight subseries, or eight cards to be tabulated for each x value. 
The extension of the summation over the various sections of the 
unit cell is obtained by the proper control of sign of each card, 
as controlled by the digit punches associated with odd and even 
h and k, and cosine- sine combination. For the centrosymmetric 
case, the eight subseries will be combined in eight different ways, 
according to the scheme of Table I. This table can easily be 
extended to include the noncentrosymmetric case. 

While such a program has not yet been tested, it is obvious 
that the combination of the subseries can be most efficiently carried 
out on the Type 650. The punched sums of the subseries would be sorted 
together on x, fed back into the Type 650, which would then punch out 
final totals. These could then be listed directly on the Type I4O7. 

VI. Performance Tests 

A synthesis of the electron density of the mineral 
liebigite, Ca 2 U02(C0 3 )3.10H20, as projected on the xy plane, was 
used as a test problem for the procedure described above. The 
synthesis had previously been carried out (at l/60th cell edge 
intervals) by means of our present IBM system, using the types 
602A and 407. The data consists of approximately 200 P(h,k,0) 
terms, which divide into k subseries of 50 terms each. It was 
found that each subseries was completed in about 20-25 minutes 
without optimum programming. With optimum programming it is 
estimated that all four series can be calculated in somewhat less 
than an hour. This rate is about 20 times that required by our 
present system, or 10 times faster than a similar system based on 
the type 60k. 
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TABLE I 
Subseries Combinations for Complete 
Fourier Synthesis 
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THE TRANSPORTATION PROBLEM 

Charles W. Swift and Stanley Poley 
International Business Machines Corporation 
Introduction: 

The transportation problem is essentially a special type linear 
programming problem. Given certain specified requirements at various 
destinations and amounts available at specific origins, an allocation of 
the products over all possible routes is desired such that the total cost 
of transporting the goods is minimized. In order to solve such a problem, 
three variables must be known. First, it Is essential that the amounts 
made available at each of the origins be specified. Secondly, the demand 
at each destination should be given. Finally, it is necessary to specify a 
unit cost of shipping over each of the possible routes. Once provided 
with this information, it is possible to determine the optimum allocation 
of the products over the various routes or modes of transportation. Fur- 
thermore, it is possible to obtain alternate optimum solutions, i.e. , one 
or more additional solutions which yield the same minimum total cost. 

This description of the transportation problem makes obvious its 
importance in the field of commercial applications. For this reason, 
programs have recently been written by the IBM staff for the solution of 
the transportation problem on IBM 701, 702, 704 and 650 Electronic Data 
Processing Machines. 

This report concerns itself with the application of the IBM 650 
Magnetic Drum Calculator in obtaining a solution of the transportation 
type linear programming problem. Section I concerns itself with the 
preliminary mathematics involved in computing a minimum solution, 
while Section II is devoted to a description of the input and output data 
and other special features of the program. 

Of interest to the programmer is the method used to solve the 
transportation problem by the IBM 650 Magnetic Drum Calculator. The 
iterative method employed is essentially the same as the "stepping stone" 
method proposed by A. Charnes and W. W. Cooper. W All operations are 
performed on a fixed-point basis, and all input data supplied by the pro- 
grammer must be restricted to a maximum size of five digits. The latter is 
imperative in view of the fact that all data is stored in the form of two such 
five digit numbers per word on the magnetic drum. A further restriction 
inherent in the present program is that the number of origins must be less 
than 100, while the number of destinations plus the number of origins must 
be less than 450. Consequently, the maximum size problem which the 650 
is capable of processing is explicitly defined. 

Two important features of the program for the solution of the trans- 
portation problem bear mentioning. The first is the option of having the 650 



* 'A. Charnes and W. W. Cooper: "The Stepping Stone Method of Explaining 
Linear Programming Calculations in Transportation Problems" - "Man- 
agement Science," October, 1954 
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compute an initial distribution or using an initial distribution which is 
supplied by the programmer. The latter may be used provided that the 
initial distribution is rot degenerate. Should this be the case, serious 
consideration should be given to the former in view of the fact that the 
program for computing the initial distribution enables the machine to 
handle a degenerate case. 

The second feature of importance to the programmer is that 
necessary information may be punched out of memory at random intervals 
specified by the programmer, so as to enable him to restart computing in 
the event that one of the internal checks causes the machine to stop. This 
has the effect of reducing the time lost due to machine error to the interval 
covering operations since the last restart information was punched out of 
memory. 

Finally, in connection with the form of all input data, it should be 
pointed out that all such data is entered into the machine in the same 
punched form. The output, in this case the solution, is punched in a form 
which renders it readily available for further processing on other IBM 
machines. 

Section I: Preliminary Mathematics: 

In order to illustrate the mathematics involved in solving a 
transportation problem, an example will be proposed and a solution 
arrived at according to the method programmed for the IBM 650 Mag- 
netic Drum Calculator. As previously mentioned, this method is es- 
sentially the "stepping stone" method, although some minor modifications 
have been made in order to facilitate processing the problem on IBM Elec- 
tronic Data Processing Machines. 

Following the requirements specified in the introduction of this 
report, let us assume that we have n = 3 origins from which we wish to 
ship certain goods, and that the amount available at each of these origins 
is 5 units, 60 units and 40 units respectively. Furthermore, let us assume 
that there are m = 4 destinations to which we wish to ship these goods and 
that the amount demanded at each of these destinations is 35 units, 10 units, 
35 units and 25 units. One condition imposed on this problem is that the 
total amount available must equal the total amount required. Table I shows 
the initialization of the problem. 

Finally, let us assume that we are provided with a cost matrix as 
shown in Table II. Each i (row), j (column) element represents the unit 
cost required to ship from origin j to destination i. We have now fulfilled 
the necessary and sufficient requirements for solving a transportation 
problem. All the computations which follow are essentially made possible 
by the information provided in Tables I and II below. 
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n 



m 





5 


60 


40 1 


35 








10 








35 








25 









21 


18 


40 


46 


28 


28 


36 


20 


24 


20 


35 


22 



Table I 



cost matrix 



Table II 



The first step in solving a transportation type linear programming 
problem is to obtain an initial distribution. This distribution may be 
computed from the information provided in Tables I and II, or it may be 
supplied by the programmer. Since a given concern will undoubtedly be 
operating on a relatively inexpensive basis, in many cases the initial 
distribution will be supplied. If the given initial distribution is not 
degenerate, it is preferable to use it as a starting point since the closer 
the initial distribution is to the optimum solution, the less time required 
to arrive at the minimal solution. However, if we assume for the present 
that the initial distribution is not given, we may proceed to compute it as 
follows: 

Examining Table II, we commence by searching the first row of 
the cost matrix and selecting the minimum cj.j element in that row. We 
then proceed to the corresponding (i, j) position in Table I and enter in 
that position the amount Di or Sj, whichever is smaller. If the D^ re- 
quirement is fulfilled, we proceed to the next row of the cost matrix and 
repeat this procedure. Otherwise, we return to the cost matrix, select 
the next minimum cij in the same row and enter in the corresponding 
(i, j) position in Table I either an amount equal to Sj or what remains to 
be filled at Di, whichever is smaller. We continue in this same manner 
row by row in the cost matrix until we have completed the last row. Once 
we have reached this point, we should have the initial distribution, and the 
example chosen here does yield such an initial distribution. However, there 
is one case which we shall cover which does not yield a satisfactory initial 
distribution and must, consequently, be treated in a slightly different manner. 
Tables HI and TV show the results of the above method for computing the 
initial distribution. The values which are circled in the cost matrix represent 
those minimum cij's which were used to compute Table HI. The results in 
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^> 


5 


60 


40 


35 




35 




10 




10 




35 




15 


20 


25 


i 5 







21 


18 


40 


46 


28 


28 


36 


20 


24 


20 


35 


22 



Table in 



cost matrix 



Table IV 



Table III show that all the boundary conditions have been satisfied and 
that, consequently, an initial distribution has been computed. 

Close examination of Table III reveals the fact that there are 
(m + n -1) basis elements. If this condition is not satisfied, the problem 
is said to be degenerate and steps must be taken to remedy this situation. 
The example given below in Tables V and VI is degenerate in view of the 
fact that the above method yields only four basis elements instead of the 
required six elements. 




2 


7 


3 


5 


1 


4 1 


3 


6 


2 


5 


3 


4 



Table V 



cost matrix 



Table VI 



The degenerate case may be handled as follows: We select an 
e > o and add e to each of the Sj's. We then add ne to Dj and proceed in 
exactly the same manner as above. If we choose e = . 001, we obtain 
Table VII, whereupon rounding, we conclude with Table VIII. There are 
now two elements in the basis distribution which are zero. The problem is 



241 



still degenerate but, due to the positions these zeros occupy, we are able 
to handle the problem and arrive at an optimum solution. If the problem 
is originally degenerate, this implies that there exists an infinite number 
of optimum solutions. We wish to arrive at one such solution and must, 
therefore, formulate an initial distribution according to the prescribed 
method above. 



fc 


5.001 


4.001 


2.001 


5.003 


5.001 




.002 


4 




4 




1 






1 


1 


I .001 


.999 



*, 


5 


4 


2 


5 


5 







4 




4 




1 






1 


1 







1 



Table VII 



Table VIII 



Having obtained an initial distribution in Table III, we will now 
proceed according to the flow chart shown in Figure I and obtain and 
optimum solution, i. e. , a solution which minimizes the total cost of 
shipping. As shown in Figure I, there are four phases per iteration in 
obtaining such a solution. Although the method should be considered in 
its entirety, each of these will be covered separately for purposes of 
clarification. Table DC is first constructed from Tables III and IV since, 
with the exception of the cost matrix, it will be convenient to consider 
only those elements which are directly related to the initial distribution. 



1 * 


3 


Cij 


x ij 


c ij x ij 


1 1 


2 


18 


35 


630 


2 


2 


28 


10 


280 


3 


2 


20 


15 


300 


3 


3 


24 


20 


480 


4 


1 


20 


5 


100 


4 


3 


22 


20 


440 
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Initial Distribution 
Table DX 



We are now in a position to proceed with the (uv) phase of the 
program. We wish to compute a 14 and a v^ for each of the elements in 
the basis table, i. e. , there will be mu/s and n v;'s, such that: 



(1) 



u 



1 + Vj = Cij 



We start by assigning to u, an arbitrary value M. An initial pass is then 
made through Table DC, the basis table, and u A or v^ is computed depending 
on whether or not a u or a v is available for any particular i or j. Provided 
we have not already completed the (u, v) table, a second pass is made through 
the basis table. We continue to make passes through the basis table until 
the (u, v) table is completed. Table X shows the completed (u, v) table for 
our example. The subscripts on the numbers indicate the pass on which they 
were obtained. 




Table X 

For example, originally we started with i = 1; j = 2. We set 
M = 100 so that Ui = 100. This enabled us to compute Vj from equation 
(1), i. e. , v 2 = C| 2 - U/, V2 = 18 - 100 or -82. We then proceeded to the 
case where i = 2, j = 2 in the basis table. Since we first formed Va = -82, 
this enabled us to compute u 2 . In this manner, two passes through the 
basis table were sufficient to complete the uv table. 

We now pass to the (wij) phase of the problem. For each cy in 
the cost matrix, we wish to compute a w^ which satisfies the following 
relationship: 



(2) 



Wii = U, + Vi - c 



'1] 



] 



'1] 



Table XI shows the results of these calculations, and gives us a maximum 
Wij = 4; I = 2; J = 3; and C XJ = 28, 
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-1 





-18 


-16 





+4 


-14 











-17 






Table XI 
where the capital letter subscripts are used to denote the maximum wij. 

_ Following the completion of the (wy) phase, we proceed next with 
theytftable. We must first compute the elements shown in Table XII. 
Each ui stands for the number of i entries in the basis table, while each 
Vi stands for the number of j entries in the basis table. Thus, there is 
one i = 1 entry, one i = 2 entry, two i = 3 entries, etc. and similarly for 
the j's^ there is one j = 1, three j = 2, etc. As in the uv table, there will 
be m u^s and n vj's. 

Calculating^ andV j is performed in the following manner: 1 We 
iirst enter +1 in Table XII for^! and Vj._ Proceeding in the order of the 
basis elements, _we pass through the (ui, Vj) part of Table XII asking our- 
selves first, is ui = 1? If the answer is in the affirmative we set v^ = Vj -1, 

jl -jU^ and y->{ = Vj "Mv K tne answer to the above question is "noj' 
we ask if vj = 1. For a positive answer, we set u^ * u^ -l fj /U( "y/Zi ~"Kji 

_ For example, starting with i = 1, j =_2 in_the basis table, we see 
that Ui = 1. We, therefore, set ui'« u x and v a ' * v 2 -1 or 2. We then set 
^U t x-sU, = o and V'a = Va -^6% « o. As_explained_above, we follow a 
similar procedure for the case where u\ ? 1 and vj * 1. In order to 
obtain all theft's, more than one pass through the basis table will usually 
be required. However, in this example, one pass was sufficient to com- 
plete the^ table. 



The/*.- and"y/ tables are first reset to zero. 
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. 


■ 


>Af 


xij 


1 


■ 





35 


2 


2 


+1 


10 


3 


2 


-1 


15 


3 


3 


+1 


20 


4 


1 





5 


4 


3 





20 



Table XIII 



i orj 


u i 


v 3 


/*i 


v, 1 


1 


1 


1 








2 


1 


Wi 


+1 


-1 


3 


2*1 


Jtfo 


+1 


•ML o 


4 

i 


21 


X 









Table XII 



The first part of the final phase consists of selecting the minimum 
xjj corresponding to those,^^ which are +1. In our example, this minimum 
x^ is X22 = 10 = ©. We now replace the element i = 2, j = 2; cjj = 28 in the 
basis table withjthe element I = 2; J = 3; c^ = 28. We then adjust those 
Xji's for which,^ = +1 by + ©. This retains the proper row and column 
balance between the~Sj's and the Dj' s as seen in Table XIV below. 



60 40 



60 40 



35 
10 
35 
25 





35 






10 






15 


20 


5 




20 



35 
10 

35 

25 





35 








10 




25 


10 


5 




20 



Table XIV 

The program then transfers back to the (u, v) phase and passes 
through the (wn) phase. Now the maximum wy is zero which implies that 
the minimal solution has been obtained. The total cost has been reduced 
from #2,230 to #2, 190. 

This essentially completes the mathematical description of the 
iterative process. Generally, several iterations will be necessary be- 
fore arriving at the minimal solution. The time required to solve such 
a problem is obviously a function of the size of the problem and the num- 
ber of iterations. The example above required approximately ten seconds 
per iteration, while the m=5byn=10 problem shown in the back of this 
report required approximately 35 seconds per iteration. 
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Section II: Special Program Features : 

The complete input deck both for the case where the initial distri- 
bution is computed and for the case where the initial distribution is supplied 
by the programmer is shown in Figure II. Deck A contains the necessary 
loading routines and the program for computing the initial distribution. 
Deck B contains the program for computing the minimum solution as does 
Deck C. In addition to this, Deck C also contains the necessary loading 
routines. All three decks are fixed and, therefore, require no alterations. 
The programmer need only punch a card containing m ana n, the cards 
containing his Dj's and Sj's, and his cost matrix. If the programmer 
prefers to use his own initial distribution, he must also punch Sex and 
SS on the same card containing m and n, and he must enter his initial dis- 
tribution on the drum in the proper locations. 

There are essentially three forms of output. The final solution is 
punched on two separate card forms. The first card contains t, the itera- 
tion count and the final cost, and is of the form indicated in Figure IVd. 
There will also be m + n - 1 cards of the form indicated in Figure IVc, each 
card containing one i, j, cij, Xjj element of the solution. In the event that 
alternate optimum solutions are desired, V, J', and Ct>j> are punched on 
cards of the form indicated in Figure IVb for each non oasis element for 
which wij is equal to zero. These cards will then become the input for 
computing the alternate optimum solutions on a future run using a separate 
program, to be completed soon. 

The third classification of output is the restart information. If the 
sign of the storage entry switches is negative, restart cards of the form 
indicated by figure IVa will be punched at the end of the © phase of the 
program. The i, j, cy elements will first be punched, seven words per 
card. Following these cards, the X|j elements will be punched two to a 
word and seven words per card. In addition, t and the cost will be punched 
on a card of the form indicated in Figure IVd. In the event that during the 
modification check (see Figure I), a machine error is detected, the machine 
stops and the programmer may then transfer to the restart procedure. The 
restart deck is shown in Figure III and is loaded into the machine; control is 
then transferred to the beginning of the uv phase. This enables the program- 
mer to effectively reduce the amount of time lost due to machine error. 

The program herein described is being modified so that the cost 
matrix for small or medium sized problems, e.g. , m = 60, n = 30, can 
be entirely stored on the drum. 

In way of conclusion, a transportation problem with m=10byn=5 
has been solved and the results are shown on the last page of this report. The 
time required per iteration of this problem was approximately 35 seconds. 
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Basic Flow Chart 



Transportation Problem 



Machine 
Error 
'OP 



«^ 



Restart 
Procedure 



f 



Has the programmer spec- 
ified an initial distribution ? 



yes 



no. 



JL 



Calculate the 
initial distribution. 



$ \ (u, v) table 



(Wj-j phase .""l —^H 



W ij*° 



>y table I 



I 



Modify t he distribution. 
i 



Check the modification. 



no error 



no 



J, 



Is a restart punchout 
desired ? 



yes 

A 



Punch the restart cards 



Punch the 
minimal 

solution. 



STO 



p^ 



Are alternate 
optima desired ? 



2i£ 



Punch alternate 
optima cards. 

I 

STOP 



FIGURE I. 
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Read once > 

per 
iteration. 



Direction of 
card feed. 



Deck B 



— © 
— © 



-© 



"© 



"© 



C U 
-© 



S j' S 



Dj's 



•m, n 




Calculate Initial Distribution. 



indicates a blank card. 



Deck C 



!} 



© 

■© 



"\ 



> 



— © 



Read once 

per 
iteration. 



i 



(x,x) 



m^^Zc^Xij^S. 



Given Initial Distribution. 



FIGURE II: Description of the Input Deck. 
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Restart Procedure 



Input Deck 



(E) indicates a blank card. 



Cards punched J : 
by the restart \ _ 
punch procedure! ] 



-(Sk 



^ 






V Read once 
/ per 

' iteration 



© 



e} c u 



|} (x,x) 
|(i,j,c i;j ) 



Direction of 
card feed. 



FIGURE in. 
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Output Form 



(A) Restart punch out: 



/ 


w i 


W 2 


W 3 


w 4 


W 5 


W 6 


*t 


contro 
















word 

















W p = (i,j,c i;j ) or (x,x) 



(B) Alternate Optima cards; 




(C) Final Punch Out: 



Jlank 



C ij 



Card 
no. 



(D) Cost card: 



Blank 


t 


Cost 





FIGURE IV. 
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Final Solution for m « 10, n « 5 Transportation Problem 
Showing the Decrease in Cost Per Iteration 



No. 


Iterations 


j 


rotal Cost 




1 






£4480 






2 






3950 






3 






3950 






4 






3950 






5 






3390 






6 






3390 






7 






3220 






8 






3220 






9 






3130 






10 






3090 






11 






3090 






12 






3070 




Origin 




Destination 


Quantity 




Unit Cost 


1 




2 


30 




14 


1 




3 







19 


2 




1 


30 




9 


2 




3 


10 




19 


2 




4 







28 


2 




8 


10 




35 


3 




3 


20 




9 


3 




7 


20 







4 




4 


20 




23 


4 




5 


10 




19 


4 




6 


20 




19 


4 




9 


10 




31 


5 




9 


10 




16 


5 




10 


10 




16 



Note: See Table XV on the following page. 
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30 


30 


50 


40 


60 


20 




30 








30 


30 










30 





10 


20 






20 









20 




10 








10 


20 
20 








20 








20 






10 




10 








20 








10 


10 


10 










10 



Table XV 
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INDEXING ACCUMULATORS FOR THE IBM TYPE 650 MDDPM 



George R. Trimble, Jr. and Dura W. Sweeney 
International Business Machines Corporation 



General Description 

Many problems require the same operations to be performed on 
ordered arrays of data. When this is the case a large amount of 
address arithmetic must be done to modify instructions so that 
they will operate upon the proper data. Index registers are 
devices which will automatically modify addresses and greatly 
facilitate the necessary address arithmetic. 

The Indexing Accumulators provided for the IBM Type 650 MDDPM 
incorporate all of the characteristics usually found in index 
registers plus the ability to be used as separate accumulators . 
As accumulators they may be used for accumulating small totals, 
holding group multipliers, or as small high speed storage devices. 
Programming is simplified, the number of instructions required 
is reduced, and, therefore, programming errors are reduced. Since 
fewer instructions are executed the problem solution time will be 
less. Also, the logic of a program using Indexing Accumulators 
is simpler than the logic for a corresponding non-indexed program. 
This, of course, eases the burden on the programmer and tends 
toward faster, more accurate programming. 

Three Indexing Accumulators (I. A.) are provided for the 650. 
Each I. A. contains four decimal digits and an associated algebraic 
sign. Factors may be added to or subtracted from the contents 
of an I. A., or new factors may be inserted in an I. A. by reset 
add or reset subtract operations . It is possible to test each 
I. A. for a zero or non-zero, or a positive or negative state by 
means of branch operations. Each I. A. is addressable so that 
its contents may be used as a factor in other operations. The 
primary use of I. A. however, is to automatically modify addresses 
of instructions . 

Addresses of Indexing Accumulators 

The addresses assigned to the I. A. are as follows: 

I. A. Address 



A 


8005 


B 


8006 


C 


8007 
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These addresses may be used as the instruction address of any 
instruction or as the data address of the following instructions: 
00-02, 10-11, 14-19, 30-49, 54, 60-61, 64-69, 90-99. Use of 
8005, 6, or 7 as the data address of any other operation will 
cause a storage selection error. When one of these addresses 
is used as an instruction address or as the data address of 
a branch instruction, the next operation executed will be a 
NO OP whose instruction address is the contents of the I. A. 
addressed. For example, suppose I. A. A contains +1234 and the 
operation 65 0100 8005 is given. Following the reset add as 
specified by code 65, the operation 00 0000 1234 will be 
executed. Thus, the contents of I. A. A specifies that the next 
instruction is to be executed from location 1234. 

8005, 6, or 7 may be used as the data address of the in- 
structions 00-01, but nothing will happen since these instructions 
do not use the data address. Since the shift instructions only 
use the units digit of the data address an 8005, 6, or 7 data 
address on codes 30, 31, 35, 36 causes normal shifting of 5, o, 
or 7 places respectively. 

Use of 8005, 6, or 7 as the data address of any of the other 
instruction will cause the contents of the I.A. to be used as a 
factor in the operation. When used in this manner the four digits 
of the I.A. will be in the four low order digits of a word which 
has six zeros in the high order positions. For example, consider 
the instruction 65 8006 1234. This instruction will cause the 
contents of I.A. B to be reset added into the four low order 
positions of the lower accumulator and zeros to be inserted else- 
where. Since the addition is performed via the distributor, it 
will also contain six zeros and the contents of I.A. B in the 
four low order positions. Signs are manipulated just as with 
any other word. 



Automatic Address Modification 

The primary use of I.A. is to automatically modify addresses 
by adding the contents of an I.A. to an address. Since the I.A. 
can contain either positive or negative values, addresses can 
be modified by adding to them or subtracting from them depending 
on the sign of the I.A. Both data addresses and/or Instruction 
addresses can be modified by the contents of any I.A. or by two 
different I.A. 
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It is necessary to tag each address by an indicator so that 
the 650 may know which I. A. should be added to the address. 
Addresses 2000 through 7999 have been reserved for this purpose. 
A Basic drum address is defined to be one in the range 0000- 
1999. In order to tag the basic drum address either 2000, 4000, 
or 6000 is added to indicate that the contents of I. A. A, B, or 
C respectively is to be added to the basic drum address. Tagging 
of high speed storage addresses is accomplished by adding 200, 
400, or 600 to the basic high speed storage address to indicate 
the use of I. A. A, B, or C respectively. 

The "Effective" address is that address which results after 
a basic address has been modified by the contents of an I. A. 
The following table lists all meaningful actual addresses and 
the resulting effective addresses. 



Actual Address 

0000-1999 
2000-3999 
4000-5999 
6000-7999 
8000-8003 
8005-8007 
8010-8015 
9000-9059 
9200-9259 
9400-9459 
9600-9659 



Effective Address 

0000-1999 

OOOO-I999 + Contents of I.A.A 

OOOO-I999 + Contents of I.A.B 

OOOO-I999 + Contents of I.A.C 

8000-8003 

8005-8007 

8010-8015 

9000-9059 

9000-9059 + Contents of I.A.A 

9000-9059 + Contents of I.A.B 

9000-9059 + Contents of I.A.C 



The effective address determined as' indicated in the above 
table must be a meaningful address for the operation called for. 
The following table lists the possible address that may be used 
with each meaningful operation code. 



Addresses 


Code 


Description 


OOOO-I999 


D 


Drum 


8000-8003 


A 


Arithmetic Unit and 
Console Switches 


8005-8007 


I 


Indexing Accumulator 


8010-8015 


T 


Tapes 


9000-9059 


B 


Buffer 
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Op Code 

00 
01 
02 
03 

04 

06 

07 

08 

09 
10 
11 
12 

13 

14 

16 

17 
18 

19 
20 
21 
22 

23 
24 

26 

27 
28 
29 
30 
31 
32 

33 

34 

36 
37 
38 

39 
40 
41 
42 

43 
44 

45 
46 

47 
48 





Meaningful 


Abbvr. 


Data Address 


NO OP 


D,A,I,T,B 


STOP 


D,A,I,T,B 


PASN 


D,A,I,B 


RCT 


T 


RT 


T 


RAT 


T 


WT 


T 


WAT 


T 


LBB 


D 


LB 


D 


AU 


D,A,I,B 


SU 


D,A,I,B 


Not Used 




Not Used 




DIV 


D,A,I,B 


AL 


D,A,I,B 


SL 


D,A,I,B 


AABL 


D,A,I,B 


SABL 


D,A,I,B 


MPY 


D,A,I,B 


STL 


D,B 


STU 


D,B 


ST DA 


D,B,8001 


ST IA 


D,B,8001 


ST D 


D,B 


Not Used 




Not Used 




SET 


B 


ST BB 


D 


ST B 


D 


SRT 


D,A,I,T,B 


SRD 


D,A,I,T,B 


PA 


D,A,I,B 


PS 


D,A,I,B 


PD 


D,A,I,B 


SLT 


D,A,I,T,B 


SCT 


D,A,I,T,B 


FAAB 


D,A,I,B 


FSAB 


D,A,I,B 


FM 


D,A,I,B 


BNZA 


D,A,I,B 


BMNA 


D,A.I,B 


BNZB 


D,A,I,B 


BMNB 


D,A,I,B 


BRNZU 


D,A,I,B 


BRNZ 


D,A,I,B 


BRMIN 


D,A,I,B 


BROV 


D,A,I,B 


BNZC 


D,A,I,B 



Name 

No Operation 

Stop 

Floating Add Suppress Normalization 

Read Check Tape Record 

Read Tape Record 

Read Alphanumeric Tape Record 

Write Tape Record 

Write Alphanumeric Tape Record 

Load Buffer Block 

Load Buffer 

Add Upper 

Subtract Upper 



Divide 

Add Lower 

Subtract Lower 

Add Absolute Lower 

Subtract Absolute Lower 

Multiply 

Store Lower 

Store Upper 

Store Data Address 

Store Instruction Address 

Store Distributor 



Set Buffer Address 
Store Buffer Block 
Store Buffer 
Shift Right 
Shift and Round 
Floating Add 
Floating Subtract 
Floating Divide 
Shift Left 
Shift and Count 
Floating Add Absolute 
Floating Subtract Absolute 
Floating Multiply 
Branch Non Zero A 
Branch Minus A 
Branch Non Zero B 
Branch Minus B 
Branch Non Zero Upper 
Branch Non Zero 
Branch Minus 
Branch Overflow 
Branch Non-Zero C 
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49 
50 

51 
52 
53 
5^ 
55 
56 
57 
58 

59 
6o 
6l 
62 

63 
64 

65 
66 

£ 7 
68 

69 

70 

71 

72 

73 
74 

75 
76 

77 
78 

79 
80 
81 
82 

83 
84 

85 
86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 
98 
99 



BMC 

AA 

SA 

AB 

SB 

BRNEF 

HWD 

WTM 

BSP 

AC 

SC 

RAU 

RSU 

Not Used 

Not Used 

DIV RU 

RAL 

RSL 

RAABL 

RSABL 

LD 

RD 

PCH 

Not Used 

Not Used 

Not Used 

RD PRT 

RC PRT 

PRT 

Not Used 

Not Used 

RAA 

RSA 

RAB 

RSB 

TLU 

Not Used 

Not' .sed 

Not' Used 

RAC 

RSC 

BRD 10 

BRD 1 

BRD 2 

BRD 3 

BRD 4 

BRD 5 

BRD 6 

BRD 7 

BRD 8 

BRD 9 



D,A,I,B 

D,A,B 

D,A,B 

D,A,B 

D,A,B 

D,A,I,B 

T 

T 

T 

D,A,B 

D,A,B 

D,A,I,B 

D,A,I,B 



D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,B 

D,B 



D,B 
D,B 
D,B 



D,A,B 
D,A,B 
D,A,B 
D,A,B 
D,B 



D,A,B 

D,A,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 

D,A,I,B 



Branch Minus C 
Add A 

Subtract A 

Add B 

Subtract B 

Branch Not End of Pile 

Rewind 

Write Tape Mark 

Backspace 

Add C 

Subtract C 

Reset Add Upper 

Reset Subtract Upper 

Divide Reset Upper 
Reset Add Lower 
Reset Subtract Lower 
Reset Add Absolute Lower 
Reset Subtract Absolute Lower 
Load Distributor 
Read (533) 
Punch (533) 



Read (407) 

Read Conditional (407) 

Print (407) ; 



Reset Add A 
Reset Subtract A 
Reset Add B 
Reset Subtract B 
Table Look Up 



Reset Add C 
Reset Subtract C 
Branch Distributor Digit 10 
Branch Distributor Dint 1 
Branch Distributor Digit 2 
Branch Distributor Digit 3 
Branch Distributor Digit 4 
Branch Distributor Digit 5 
Branch Distributor Digit 6 
Branch Distributor Digit 7 
Branch Distributor Digit 8 
Branch Distributor Digit 9 
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of an I. A. to a basic address. If t n f ° °^ exceeds 9999, the 
P os??xve and the resulting ef feet ^address ex q Qf 
Sarry would be los * *»* °^ e $xve address . If the contents 
sum would be kept as the ff* e °^; modified by subtraction, 
of the I.A. is negative, the address xs , B comp iement 
Since subtraction is accomplished by aoaing posit ive. As 
I ctrry will always occur w ^en the difference £ ubtraction 
Sbovefany such carrys ^ v ^ s ^dressf tS complement result 
should result in a "negative ^dress, & stora ge 

SscS^n^s^'srsSji^ " not * meanlnsful ad 

Examples 



Actual 
Instruction 

65 0123 0124 
65 2123 0124 
65 0123 6124 
65 4123 ^124 
65 4123 6124 

65 9215 8002 
65 0123 9627 
65 4015 0124 



Contents^ I.A. ^^etion Remarks 

0223+ 0075- 0062+ 65 0123 0124 No indexing 
Q223+ 65 0346 0124 Index D by A 

0062+ 65 0123 0186 Index I by C 
0075- 65 0048 0049 Index D and I by B 
0075- 0062+ 65 0048 0186 InAexD by B and 



65 0123 4124 
65 9615 9218 
65 2123 0124 



0013+ 



2345+ 



65 9210 0124 1983+ 



7878+ 



1011- 
1011- 



65 2123 0124 1UI- 



65 9028 8002 Index D by A 
0015- 65 0123 9012 Index I by C 

65 2360 0124 2360 causes storage 
or? <^ uv selection error 

65 0993 0124 D exerts 10,000 
Car-; ; u, ( ° S1; 

65 0123 8002 I becomes 8002 
0015- 65 9000 8007 I becomes 8007 

65 9112 0124 D becomes^negative". 
y Complement 9H 2 

causes Storage 
Selection Error 

fi* Q012 0124 D becomes "negative 
65 901^ ux**t Complement i5 rae an- 

ingful, however. 
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Testing of Indexing Accumulators 

The following are the operations by means of which the contents 
of the indexing accumulators may be tested. 

40 BNZA Branch Non Zero I. A. A 

If I.A.A contains zeros the next instruction will be taken 
from the location specified by the instruction address. If the 
contents of I.A.A are not zero, the next instruction will be taken 
from the location specified by the data address. 

41 BMNA Branch Minus I.A.A 

If the sign of I.A.A is plus the next instruction will be taken 
from the location specified by the instruction address. If it is 
minus the next instruction will be taken from the location specified 
by the data address. 

42 BNZB Branch Non-Zero I.A.B 

If I.A.B contains zeros the next instruction will be taken 
from the location specified by the instruction address. If the 
contents of I.A.B are not zero, the next instruction will be 
taken from the location specified by the data address. 

43 BMNB Branch Minus I.A.B 

If the sign of I.A.B is plus the next instruction will be taken 
from the locations specified by the instruction address. If it is 
minus the next instruction will be taken from the location specified 
by the data address. 

48 BNZC Branch Non-Zero I.A.C 

If I.A.C contains zeros the next instruction will be taken from 
the location specified by the instruction address. If the contents 
of I.A.C are not zero, the next instruction will be taken from the 
location specified by the data address. 

49 BMNC Branch Minus I.A.C 

If the sign of I.A.C is plus the next instruction will be taken 
from the location specified by the instruction address. If it is 
minus the next instruction will be taken from the location specified 
by the data address. 
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Operations Upon Indexing Accumulators 



The effective address of those instructions which operate 
upon I. A. must be 0000-1999, 8000-8003, or 9000-9059. This 
effective address specifies what the data is that is to be used 
in the operation. If the effective address is in the range 
0000-1999, the data used by the operation is the actual effective 
address. If it is in the range 8000-8003, or 9OOO-9059, the 
data used by the operation will be the four low order digits 
and sign of the storage location specified by the address. The 
meaning of these statements will become clear in the examples 
which follow. The instruction address has its usual meaning. 

50 AA Add to I. A. A 

The data specified by the effective data address will be 
added to the contents of I. A. A. 



Examples 

Actual Indexed Contents 
Instruction Instruction of I. A. A. 

Before After 

50 0001 0123 50 0001 0123 0500+ 0501+ 

50 1623 0123 50 1623 0123 0500+ 2123+ 

50 2000 0123 50 0500 0123 0500+ 1000+ 

50 2156 0123 50 O656 0123 0500+ II56+ 

50 4000 0123 50 0111 0123 0500+ 0611+ 0111+ 

50 4265 0123 50 0154 0123 0500+ 0654+ 0111- 

50 8002 0123 50 8002 0123 0500+ l6ll+ 

50 9007 0123 50 9007 0123 0500+ 7277- 

50 9407 0123 50 9004 0123 0500+ 1734+ 0003- 

50 2156 2123 50 O656 0623 0500+ 1156+ 



Contents Contents of 
of I.A.B. 8000-8003 or 
9000-9059 



7777771111+ 
1111117777- 
0202021234+ 



These examples show that it is possible to simply add a 
constant (in the range OOOO-I999) to A as in the first two examples, 
to add A to itself as in the third example, to add A to itself and 
to another constant (in the range 0000-1999) as in the fourth 
example, to add B to A as in the fifth example, or B to A and to 
another constant as in the sixth example. The next three examples 
show how it is possible to add to A from the four low order positions 
of a high speed storage location. The last example illustrates 
how addresses are modified before the operation is executed. Thus 
D and I are increased by 0500 before the contents of I.A.A are 
modified. 
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As described previously the effective address must be of 
type D,A, or B. The operations performed to obtain this effective 
address are exactly the same here as with any other kind of in- 
struction. The rules regarding carries and complement (negative) 
addresses still apply. The final addition to I. A. A is algebraic 
however when the effective address is type A or B and all of the 
normal rules regarding signs are true. If the effective address 
is of Type D, this address is always treated as though it were 
plus . 

All of the other instructions which are described in the 
following paragraphs operate in an analogous manner. Only a 
few examples for each will be given. It is left as an exercise 
for the reader to work out exactly what happens under each of 
the many possible conditions. The general rules given above are 
completely sufficient for working out any conceivable conditions. 

52 AB Add to I.A.B 

The data specified by the data address will be added to the 
contents of I.A.B. 

58 AC Add to I.A.C 

The data specified by the data address will be added to the 
contents of I.A.C. 

51 SA Subtract from I.A.A 

The data specified by the data address will be subtracted 
from the contents of I.A.A. 



Examples 

Actual 
Instruction 



Indexed Contents 
Instruction of I.A.A 



Before After 
51 0001 0123 51 0001 0123 0500+ 0499+ 
51 2000 0123 51 0500 0123 0500+ 0000+ 
51 4250 0123 51 0125 0123 0500+ 0375 
51 8000 0123 51 8000 0123 0500+ 7390- 
51 9207 0123 51 9057 0123 0050+ 7940+ 



Contents Contents of 
of I.A.B 8000-8003 or 
9000-9059 



0125- 



1234567890+ 
1234567890- 
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53 SB Subtract from I.A.B 

The data specified by the data address will be subtracted 
from the contents of the I.A.B. 

59 SC Subtract from I.A.C 

The data specified by the data address will be subtracted 
from the contents of I.A.C. 

The following operations are analogous to the previous group 
except that the I. A. is reset to zero before the data is added or 
subtracted into it. 

80 RAA Reset Add to I. A. A 

I. A. A will be reset to zero and the data specified by the data 
address will be added to it. 

Examples 

Actual Indexed Contents Contents Contents of 
Instruction Instruction of I. A A of I.A.C 8000-8003 or 

Before After 9000-9059 

80 0000 0123 80 0000 0123 123^- 0000+ 

80 1520 0123 80 1520 0123 1234- 1520+ 

80 6000 0123 80 0175 0123 1234- 0175+ 0175+ 

80 6525 0123 80 0550 0123 1234- 0350+ 0175- 

80 9027 0123 80 9027 0123 1234- 5021- 001212345021- 

82 RAB Reset Add to I.A.B 

I.A.B will be reset to zero and the data specified by the 
data address will be added to it. 

88 RAC Reset Add to I.A.C 

I.A.C will be reset to zero and the data specified by the 
data address will be added to it. 

81 RSA Reset Subtract from I.A.A 

I. A. A will be reset to zero and the data specified by the 
data address will be subtracted from it. 
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Examples 

Actual 
Instruction 



Indexed 
Instruction 



Contents 
of I.A.A 
Before After 



81 1234 0123 81 1234 0123 0527+ 1234- 

81 7015 0123 81 1927 0123 0527+ 1927- 

81 7015 0123 81 0103 0123 0527+ 0103- 

81 9059 0123 81 9059 0123 0527+ 2301+ 

83 RSB Reset Subtract from I.A.B 



Contents Contents of 
of I.A.C 8000-8003 or 
9100-9059 



0912+ 
0912- 



0123012301- 



I.A.B will be reset to zero and the data specified by the 
data address will be subtracted from it. 

89 RSC Reset Subtract from I.A.C 

I.A.C will be reset to zeros and the data apecified by the 
data address will be subtracted from it. 
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IBM TYPE 650 MAGNETIC TAPE ATTACHMENT 



Dura W. Sweeney and George R. Trimble, Jr. 
International Business Machines Corporation 



The Magnetic Tape Attachment for the 650 consists of 
the following units: 

1 Type 653 High Speed Storage Unit (Buffer) . 

1 Type 652 Tape Control Unit. 

1 to 6 Type 727 Magnetic Tape Drives. 

The 653 High Speed Storage Unit is used as a buffer 
between the magnetic tapes and the drum. It is not necessary 
to transfer the data read from tape onto the drum, however. 
In general, It will he better to operate on the data while 
it remains in the buffer. In this manner records will be 
read into the buffer, operated on while they are still in 
the buffer, and written on an output tape, without ever 
going into drum storage. 

Each of the tape drives has an address. They are 8010 
through 8015. The address assigned to a tape drive is 
controlled by a switch on the tape drive. Thus two tapes 
can be assigned the same address for writing two identical 
output tapes for checking purposes. 

The 702-705 character code is used for recording infor- 
mation on the tapes. Automatic translation from the 702-705 
code to and from the 650 code is provided. Except for the 
restrictions imposed on records by the fixed length numeric 
words and 60 word buffer of the 650, the characteristics of 
the magnetic tape records are identical with records recoraed 
by the 702-705 . Both horizontal and vertical redundancy 
checking are provided as well as the speed, density, and 
capacity which characterize the 727 tape drive. 

Nine new operation codes are provided to control the 
magnetic tape functions. They are as follows: 

03 RC (Read Check) 

The next record on the tape specified by the data address 
is read and a horizontal and vertical redundancy check is ma.de, 
Failure to pass these checks will cause an error indication. 
Since this operation does not require reading the tape record 
into the buffer, the contents of the buffer are not disturbed. 
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04 R (Read) 

The next record on the tape specified by the data 
address is read into the buffer, the first word entering 
the word of the buffer to which the buffer ring had been set 
by the previous program. Succeeding tape words will read 
into succeeding buffer words until word 9059 has been filled 
with the last tape word. All data read by this instruction 
must be pure numeric data. The buffer ring will be left 
set at 9000. 

The lowest order digit of each tape word has a zone 
indication attached to it which is translated to be the 
sign of the word read into the buffer. A "12" zone is 
translated to plus, and an "ll" zone is translated to minus. 

The number of words read from the tape must be exactly 
the number required to fill the buffer from the position to 
which it is set to the end of the buffer. More or less than 
this number of words will cause an error stop. 

Thus it is possible to have numeric tape records of 1, 
2, 3, etc. up to 60 words in length. On a 2400 tape this 
means that from 36,000 one word records (360,000 digits) to 
768O sixty word records ( 4,608,000 digits) can be recorded. 

Examples 

0100: 27 9000 0101 Set buffer ring at 9000 

0101: 04 8010 0102 Read 60 numeric words from tape #1 

into buffer words 9000-9059. 
(More or less than 60 words will cause an error stop) 
The buffer ring will be left set at 9000. 

0100: 27 9045 0101 Set buffer ring at 9045 

0101: 04 8010 0102 Read 15 numeric words from tape #1 

into buffer words 9045-9059. 
(More or less than 15 words will cause an error stop) . 
The buffer ring will be left set at 9000. 

05 RA (Read Alphanumeric) 

Since the 650 is a strictly numeric machine, alphanumeric 
and special characters cannot be read directly into it. In 
order to read alphabetic and special characters into the 650 
from cards it is necessary to convert these characters to a 
two digit numeric code which can be stored within the 650. 
Similarly, when alphabetic and special characters are encountered 
on tape, it is necessary to convert them to a two digit code 
to enter them in the 650. Some indication must be given to 
the 650 whenever such a character is encountered so that it 
might know that this character must be converted to the two 
digit code. It is not feasible to give such an indication 
for each character read when the possibility of encountering 
such characters exists. A more economical way of accomplishing 
this is by giving an indication for a group of characters. 
Thus if an alphanumeric group Is encountered, all characters 
within that group are converted to the two digit code. 
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An alphanumeric tape record used by the 650 has a 
special form. It must be either 10, 20, 30, 40, 50, or 
60 words in length. Such a record consists of from 1 to 
6 blocks, each block containing ten words. Within each 
block the tenth word is set aside as the control word. 
This word indicates which of the remaining nine words are 
numeric and which are alphanumeric. An eight in a particular 
digit position of the control word indicates that the corres- 
ponding word contains alphanumeric data. The absence of an 
eight indicates that the corresponding word contains pure 
numeric data. 

When a RA instruction is given, the buffer ring must 
have previously been set to the beginning of a block (9000, 
9010, etc., to 9050). Therefore, the length of an alpha- 
numeric tape record is not variable by word as is a pure 
numeric record, but must be some multiple of ten words in 
length. 

The data address of the RA instruction specifies the 
tape drive to be activated. The first ten digits of the tape 
record are read into the tenth word of the block to which the 
buffer ring had previously been set. Digit ten of the control 
word is ignored. Digit one is examined and if it is not an 
eight the next ten digits on the tape are read into the first 
word of the block. If it is an eight, however, the next 
five characters are converted to ten digits and entered 
into the first word of the block. Similarly, digit two 
is examined, etc., through digit nine. At this point the 
next control word is read from the tape into its position 
and analyzed in the same way for each of the words in its 
block. This process is repeated for each block until the 
last block has been read into 9050-9059. 

The sign representation for words indicated by the 
control word as being numeric is the same as the case where 
a pure numeric record is read from tape. A word indicated 
by the control word as being alphanumeric will always 
appear as a positive word in the buffer. 

As with numeric records, the number of characters read 
from the tape must be exactly enough to fill the buffer from 
the position to which it is set through 9059. More or less 
than enough will cause an error stop. The buffer will be 
left set at 9000 after this operation. 
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Examples : 

Assume the tape record consists of four numeric records 
followed by five alphanumeric records. This would be recorded 
on the tape as follows: 

0888880000nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnaaaaaaaaaaaaaaaaaaaaaaaaa 

Control Pour Numeric Records of 10 digits each Five Alphanumeric Records 
Word of five characters each. 

•«< (Direction of Tape Motion) 

A program to read this record is as follows: 

0100: 27 9050 0101 Set buffer ring to 9050 

0101: 05 8010 0102 Read tape record into words 9050-9059 

The actual record on tape consists of 5° numeric characters 
and 25 alphanumeric characters. The 25 alphanumeric characters 
will be converted to 50 numeric characters making a total of 
100 numeric characters read into the ten buffer words. 

If a block is purely numeric it will consist of 100 
numeric characters of which nine are used for control. If 
a block is all alphanumeric it consists of the ten numeric 
digits in the control word and 45 alphanumeric characters. 
The 45 alphanumeric characters will be converted to 90 numeric 
digits making a total of 100 digits, for the block. 

Numeric and alphanumeric words do not have to be assigned 
to any particular positions in a block but they can be 
arbitrarily intersperced. Thus word 1, 2, and 6 can be 
numeric while 3, 4, 5, 7, 8, and 9 are alphanumeric. 

A record containing the maximum number of alphanumeric 
characters would be recorded as 6 control words and 54 words 
of alphanumeric data. Thus there would be 60 numeric digits 
and 270 alphanumeric characters recorded on the tape. When 
entered into the buffer the 270 alphanumeric characters would 
be converted to 540 numeric digits and the total record length 
would then be 600 digits. About 12,000 such records could be 
recorded on a reel of tape, or about 3*240,000 alphanumeric 
characters plus 72,000 control digits. 

06 W (Write) 

The W instruction is exactly analogous to the R in- 
struction except that in this case a numeric record is 
written on the tape specified by the data address. Writing 
starts at the word to which the buffer ring had been set 
and continues until the end of the buffer. Thus records 
of from one to sixty words in length may be written depending 
upon where the buffer ring is set. The buffer ring will be 
left set at 9000 after this operation. 
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07 WA (Write Alphanumeric) 

The'WA instruction is exactly analogous to the RA in- 
struction except that in this case an alphanumeric record is 
written oh the tape specified by the data address. The buffer 
ring must have been previously set to the beginning of a block 
(9000, 9010, etc. or 9050). The tenth word of each block is a 
control word and specifies which of the remaining nine words 
are numeric and which are alphanumeric. As in the RA an eight 
indicates that the corresponding word is alphanumeric and no 
eight indicates numeric data. If alphanumeric data is indicated 
the ten digits for that word are "compressed to five alpha- 
numeric characters for recording on the tape. The tenth or 
control word of the block is written as the first word on the 
tape, the remaining nine words written in sequence following 
the control word. 

5 2| BRNEF (Branch No End of Pile) 

An end of file condition is caused by occurrence of one of 
the following: 

1. Sensing a tape mark during reading (03, 04, 05). 

2. Sensing reflective end of tape marker during writing 
(06, 07) 

Occurrence of either of these conditions will turn on the 
Innut/Output Indicator for that tape unit and also turn on an 
end of file indicator in the 650. This end of file indicator 
can then be interrogated by the BRNEF instruction to see if 
an end of file condition has been reached on any of the tapes. 

If the end of file indicator is not on when it is interrogated 
by the BRNEF instruction the next instruction will be taken from 
the location specified by the data address. If the end of file 
indicator is on when It is interrogated by the BRNEF instruction 
the next instruction will be taken from the location specified 
by the instruction address and the end of file indicator, and 
the Input/Output indicator for that tape unit will be turned of 1 . 

Since there is only one end of file indicator which may 
be turned on by any tape unit it is necessary to interrogate 
it after a tape unit is used and before the next tape read or 
write instruction is given if there is the possibility of an 
end of file condition occurring. 

If the reflective end of tape spot causes an end of file 
condition during writing, the record currently being written 
will be fully recorded. A tape mark should then be written to 
indicate the end of the file for reading. Successive write in- 
structions may be given however to record another file on the 
same tape if desired. Care must be taken to assure that such 
a procedure will not cause the tape to be completely unwound 
from its reel. 
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55 RWD (Rewind) 

The tape unit specified by the data address is rewound 
to the "Load Point". The load point is determined by a 
reflective spot placed at the beginning of the tape. 

56 WTM (Write Tape Mark) 

A tape mark is written on the tape specified by the data 
address . 

57 BSP (Back Space) 

The tape specified by the data address is backspaced one 
record. 

During reading the information being read is checked for 
both horizontal and vertical redundancy. During writing the 
echo pulses are similarly checked. Failure to pass these 
checks will cause an error indication. All tape operations 
except the BRNEF instruction require that the data address 
be one of 8010-8015. Any other data address used with these 
instructions will cause a storage selection error. 

Tape reading and writing speeds are 10 milliseconds for 
accelerate and decelerate time and .067 milliseconds time 
to read or write one character. Thus it would take 
10 + 60 X .067 + 270 X .067 = 32.11 milliseconds to read 
or write a record containing 60 control digits and 270 
alphanumeric characters . 

If a tape read or write operation is given succeeding 
program steps (not requiring a buffer reference or another 
tape operation) will be executed in parallel with the read 
or write operation. Any succeeding instruction which re- 
quires a reference to the buffer or is another tape operation 
will cause an interlock so that the program will stop until 
the tape read or write operation is complete before continuing. 
Thus there could be 50 milliseconds of useful computation 
time in parallel with the reading of a 600 digit tape record. 
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IBM TYPE 650 HIGH SPEED STORAGE ATTACHMENT 



Dura W. Sweeney and George R. Trimble, Jr. 
International Business Machines Corporation 



The High Speed Storage attachment for the 650 is con- 
tained in the Type 653 unit. It consists of 60 words, each 
of 10 decimal digits and an algebraic sign, of magnetic 
core storage. Because of the extremely low access time 
characteristic of magnetic core storage, it provides a 
source from which data and instructions may be made 
available. Since the access time for each of the 60 
words is zero, the only time required for reference to 
a word in the High Speed Storage Unit is the 9° micro- 
seconds necessary to transfer the word to the arithmetic 
or control unit. 

The High Speed Storage (HSS) is also used as the 
buffer for the Magnetic Tape Attachment for the 650 . For 
this reason the terms HSS and buffer are used indiscrimi- 
nately throughout. 

Each of the 60 words has a four digit address associated 
with it by means of which the program can make reference 
to these words as sources of data or instructions or as 
destinations of results. These addresses are 9000 through 
9059, Thus instructions may be executed from the High 
Speed Storage Unit, (HSSU) , data may be operated upon 
from it, or intermediate and final results may be stored 
in it. The speed at which the 650 executes a program can 
be significantly increased by judicious use of the HSSU 
and will greatly reduce the need for the technique of 
optimum programming. Referring to the Sequence Chart 
in the article on Optimum Programming in Technical 
Newsletter #8 the effects of the HSSU on instruction 
execution times can be easily determined. Wherever a 
"Search for Data" or "Search for Next Instruction segment 
is indicated, simply eliminate that segment if a word in 
the HSSU is referred to. For example, all of the add 
type instructions (10, 11, 15, 16, 17, 18, 60, 61, 65, 66, 
67, 68) require only 8 word times or 768 microseconds to 
execute if everything is in the HSSU. The Branch Minus 
(46) requires either 288 or 384 microseconds. Similarly, 
times for each of the other operations can be determined. 
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In order to make efficient use of the HSS some means 
for transferring blocks of information between the HSSU 
and the drum must be provided. Pour new instructions are 
included for this purpose. They provide an efficient method 
of transferring data from one set of locations to another 
and in addition permit a certain amount of editing of records 
by deletion of words either at the beginning or end of the 
record. 

Magnetic cores are static memory devices to which a 
pulse must be applied to cause them to read in or out. 
During a block transfer it is necessary to pulse the words 
in the desired block consecutively causing them to read in 
or out in sequence. The device which accomplishes this is 
called a "Ring" . Once the ring has been set to activate 
a particular word of HSS it will automatically advance to 
activate the next word, then the next, etc. until the complete 
transfer has been effected. The buffer ring actually consists 
of two rings, a ten position word ring and a six position 
block ring. The simultaneous position of both of these rings 
determine which of the 60 words the buffer ring is set to. 
For this reason the buffer can be considered as logically 
consisting of six-ten word blocks. 

The following instruction allows the programmer to "Set" 
the buffer ring at any desired word so that the block transfers 
can be initiated starting with any of the 60 words. 

27 SET (Set Buffer Ring) 

The data address of the SET instruction must be one of the 
addresses 9000 through 9059. The buffer ring will then be 
set at the corresponding HSS word position. A data address 
other than 9000-9059 will cause a storage selection error to 
be indicated. 

In addition, any instruction which refers to a word in 
HSS either for datum or an instruction will cause the buffer 
ring to be left set at that. position. 

Examples: 

056O : 27 9023 0561 The buffer ring will be set 
at position 9023 . The next instruction will be taken from 
location 0561. (Note that the instruction 27 9023 9012 
would leave the buffer ring at 9012.) 

0560 : 15 9010 0561 The word in 9010 will be added 
into the lower accumulator and the buffer ring will be left 
set at position 9010. 
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The block transfer instructions are as follows: 
08 LBB (Load Buffer Block) 

The data address of the LBB instruction must be one 
of the drum addresses, 0000 through 1999- It specifies the 
location of the first word on the drum to be transferred to 
HSS. The first word of HSS transferred into is determined 
by where the buffer ring is set. Successive words on the 
drum are then transferred into successive words in HSS until 
one of the following occurs: 

1. The end of a buffer block is reached. The six 
buffer blocks are 9000-9009, 9010-9019, 9020-9029, 
9030-9039, 9040-9049, 9050-9059. 

2. The end of a drum band is reached. 

Words in HSS not transferred into will not be affected by this 
operation. The buffer ring will be left set at the last word 
position transferred into plus one. If the last word trans- 
ferred into is 9059, however, the buffer ring will be left 
set at 9000. If the data address of the LBB instruction is 
not 0000-1999 a storage selection error will be indicated. 

Examples : 

0100: 27 9000 0101 Set buffer ring at 9000. 

0101: 08 0500 0102 Transfer 0500-0509 to 9000-9009. 

The buffer ring will be left set at 9010. 

0100: 27 9016 0101 Set buffer ring at 90l6. 

0101: 08 0500 0102 Transfer 0500-0503 to 9016-9019. 

The buffer ring will be left set at 9020. 

0100: 27 9056 0101 Set buffer ring at 9056. 

0101: 08 0500 0102 Transfer 0500-0503 to 9056-9059. 

The buffer ring will be left set at 9000. 

0100: 27 9000 0101 Set buffer at 9000. 

0101: 08 0547 0102 Transfer 0547-0549 to 9000-9002. 

The buffer ring will be left set at 9003- 
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In each of these examples the buffer ring was set 
by means of the SET Instruction. This will not always 
be necessary in practice. The following examples illustrate 
other ways of setting the buffer ring. 

0100: 27 9000 0101 Set buffer ring at 9000. 

0101: 08 0500 0102 Transfer 0500-0509 to 9000-9009. 

0102: 08 0510 0103 Transfer 0510-0519 to 9010-9019 . 
In this example the second LBB instruction makes use of the 
fact that the buffer ring has been left set at 9010 after 
the first LBB instruction , The buffer will be left set at 
9020 after the second LBB instruction. 

0100: 69 9000 0101 Load Distributor from 9000. 

0101: 08 0500 0102 Transfer 0500-0509 to 9000-9009. 
Since the Load Distributor instruction leaves the buffer ring 
set at 9000 it is not necessary to use the SET instruction 
prior to the LBB instruction. 

28 STBB (Store Buffer Block) 

The STBB instruction is exactly analogous to the LBB 
instruction except that in this case data is transferred from 
HSS to the drum instead of from the drum to HSS . Otherwise, 
all of the rules and conditions described under the LBB in- 
struction still apply. 

09 LB (Load Buffer) 

The LB instruction is similar to the LBB instruction 
with one exception. The transfer of data continues until 
one of the following occurs: 

1. The end of the buffer is reached. 

2. The end of a drum band is reached. 

Thus while the LBB instruction is a 1 to 10 word block transfer 
the LB Instruction can cause as many as 50 words to be trans- 
ferred from the drum to HSS . 
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Examples : 

0100: 27 9000 0101 Set buffer ring at 9000. 

0101: 09 0500 0102 Transfer 0500-0549 to 9000-9049 . 

The buffer ring will be left set at 9050. 

0100: 27 9015 0101 Set buffer ring at 9015* 

0101: 09 0500 0102 Transfer 0500-0544 to 9015-9059. 

The buffer ring will be left set at 9000. 

0100: 27 9000 0101 Set buffer ring at 9000. 

0101: 09 0523 0102 Transfer 0523-0549 to 9000-9026. 

The buffer ring will be left set at 9027. 

29 STB (Store Buffer) 

The STB instruction is exactly analogous to the LB in- 
struction except that in this case data is transferred from 
HSS to the drum. Otherwise, all of the rules and conditions 
described under the LB instruction still apply. 

Two other important features of the HSSU are the ability 
to perform TLU on the HSS and the ability to use one of the 
addresses 9000 through 9059 as the data address of the valid 
70 codes which control the operation of the Type 533 and 
Type 407. 

If the TLU operation has a 9OOO-9059 data address the 
following rules apply: 

1. The TLU operation will start at the word in HSS 
specified by the data address. (Note that the 
only time the TLU operation will start at 9000 
is if the data address is 9000.) For example 

if the instruction 0100: 84 9036 0101 is given, 
the TLU operation will start at 9036 and may 
search from 9036 to 9059. The information stored 
from 9000-9035 will not be searched. 

2. The TLU operation considers the contents of the 
distributor and that section of HSS to be searched 
as positive. 

3. The address of the word whose contents are greater 
than or equal to the contents of the distributor 
(both considered positive) is inserted in the 
data address positions of the lower accumulator. 
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4. The buffer rings are left setting at the 
last word searched plus one. 

For example, if the instruction 0100: 84 9036 0101 

is given and the address of the number found 

is 9043, then the address, 9043, will he inserted 

in the lower accumulator and the buffer rings will 

be left set at 9044 . 

If the instruction 0100: 84 9036 0101 is given 

and the address of the number found is 9059, then 

the address, 9059, will be inserted in the lower 

accumulator and the buffer rings will be left set 

at 9000. 



5. 



6. 



If no number is found a storage selection indication 
will be made. 

Although the TLTJ operation may begin at any point 
in HSS, the actual operation will not start until 
the home pulse (address 0000, 0050, etc.) is passed 
during a drum revolution. 
For example: 



Location 
0547 
0561 
0598 



Instruction 
84 9036 0548 
84 9010 0562 
84 9022 0599 



TLU Operation Starts 
in 3 word times, 
in 39 word times, 
in 49 word times. 



If any of the valid 70 codes (70, 71, 75, 7^, 77) has a 
9OOO-9059 data address a load buffer block or store buffer 
block transfer will be initiated starting at the 9000-9059 
data address and at word one of the read, punch, or print 
buffer and terminating at the end of the buffer block. The 
information in the read, punch, or print buffer will be 
transferred directly to or from the HSS without going through 
general storage on the drum. 



For example: 

0100: 70 



9000 0101 



Transfer 10 words of read buffer 
to 9000-9009 



0100: 71 9036 0101 Transfer 4 word (9036-9039) to 

punch buffer words 1-4, words 5-10 
are blank. 



0100: 70 9012 9000 



Transfer words 1-8 of read buffer 
to 9012-9019. Take 9000 as location 
of next instruction if non-load 
card. Take 9012 as location of 
next instruction if a load card. 
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There Is a validity check made upon all information 
read out of HSS. Therefore, there will he an additional 
validity check performed on all information In the arith- 
metic or control unit if It is brought from the HSS, and 
there will he a validity check on all information trans- 
ferred to or from the HSS a. from or to the tape units 

b. from or to general storage 
on the drum 

c. from or to the read, punch 
or print buffers . 

The time required for all transfer operations between 
the drum and the HSSU is as follows: 

1. A minimum of 3 word times between the location 
of the instruction and the data address. 

2. A minimum of (2+n) word times between the data 
address and the location of the next instruction, 
(n is the number of words transferred.) 
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LIST OF SUBROUTINES USED BY 650 CUSTOMERS 



Bell Aircraft Corporation (Dr. M. Robinson) 
Read in - punch out 
Floating decimal interpretive routines 
Floating decimal: sin, cos, e x , In, 

log, arctan 
Matrix operations 

Bell Telephone Laboratories 
(Mr. R. W. Hamming) 
Solution of y" - Ay 1 - Ay = B+2x(t) +2x' (t) 



in the form 



t 

Je' 



«t 



x(t)dt 



Boeing Airplane Company (Mr. M. O. Post) 
Floating decimal arithmetic 
Fixed and floating decimal: sin, cos 

arcsin, arccos, arctan, log, In, e x 
Block move 
Load 7 words/card 
Punch 7 words/card 
Load floating point data without 

excess 50 
Punch floating point without excess 50 
Relocate instructions 
Trace 

Conversion of floating point fo fixed 
Curve fitting by least squares 
A x 

Carbide and Carbon Chemicals Company 
(Mr. J. E. Rowe) 
2-3 dimensional Fourier synthesis 
Check-change routine 
Tracing routine 
Input-output routines 
Trimble's interpretive floating point 

routine extended to include sin, cos, 

log, exp. etc. 

Chance Vought Aircraft, Incorporated 
(Mr. A. R. Mandelin) 
SAM I 
SAM II 
SAM III - for double precision 

arithmetic 
Trigonometric functions (RAND approx. ) 
Translation 
Block entry 

Block punch-out (1/card through 7/card) 
Block punch-out with word change 
Matrix operations 
Danielowsky (real and imaginery) 
Mode shape removal routine 

Detroit Edison Company (Mr. T. H. Lee) 
Complex arithmetic interpretive routine 
Complex matrix inversion 
Cube root 



Sinh, cosh, inverse sinh, inverse cosh 
Conversion of polar coordinates to 

Cartesian coordinates 
Dump routine which permits reloading 

by LI 

Douglas Aircraft Corporation 
(Mr. R. E. Ruthrauff) 
Fixed point input (2 types) and 

output (3 types) 
Floating point input (2 types) and 

output (3 types) 
Fixed point: square root, sin, cos, 
arcsin, arccos, arctan, K x (K=10,e), 
log, In 
Floating point interpretive: add, 
subtract, multiply, divide, square 
root, multiple operations 
Matrix fixed and floating point 
input input 

add, sub add, sub 
multiply multiply 
transpose transpose 
inversion 
output 
Assembly 

Eglin Air Force Base (Mr. H. L. Adams) 

Linear interpolation 

e x (-36< x<8) 

In (1+x) (0< x< 1) 

a * a /t, -9999999999< A< 9999999999 
Arctan A/B ,■ <- B< ; n 

In planning (5 decimal digit values): 
trigonometric functions, logarithms, 
exponentials 

General Dynamics Corporation 
(Mr. H. P. O'Neill) 
10-digit floating decimal conversion 

routine 
12x12 symmetrical matrix augmented 

by 7 vectors 

General Electric Company 

(Miss S. G. Fleming) 

Floating point interpretive routine 
using Trimble's codes, plus sin, 
cos, In, arctan _g ^q 

Machine language: In x (10 " S x < 10 ), 
ex (-20.7x523.0), sin x, 

cosx (|x| <10 10 ) 
Least squares curve fitting 
Automonitor for machine language 
Automonitor for floating point 

interpretive routines 
Punch 8/card 
Block transfer 
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Clear drum to zero from locations A 
through B 

General Electric Company (Mr. W. H. Root) 
General purpose floating point 
Correlation matrix generation 
Analysis of variance (expected by 
January 1956) 

General Electric Company 

(Mr. G. W. Hobbs) 

Fixed point routines (floating point in 
progress but incomplete): input-output, 
square root, sin, cos, arctan, log, 
exponential, double precision 

Automonitoring 

Tracing 

Dump block storage 

Clear drum 

International Business Machines 
Corporation (Mr. J. A. Painter) 
Reset entire drum to any desired 

number 
Card conversion - 701 octal to 701 

decimal 
Floating decimal complex arithmetic 
Real and complex roots of algebraic 

equations (use Lin's method - if 

fails, use Newton's method) 
La Place Transformation 

International Business Machines 
Corporation (Mr. B. R. Faden) 
Load 1/card and 5/card 
Punch-out all non-minus-zero 

locations 
Punch-out 5/card in form for loading 
Drum clearing - clear to minus zero 
Tracing 
Statistical 
Square root 

Knolls Atomic Power Laboratory 
(Mr. D. B. MacMillan) 
Loading routine requiring serially 
numbered cards and specially 
identified final card 
Punching routine to prepare the above 
Automonitoring routine 

Lockheed Aircraft Corporation 
(Mr. R. W. Bemer) 
General purpose floating decimal 

system 
Tchebysheff 5th order polynomial 

through< 50 unequally spaced points 
Utility routines 



McDonnell Aircraft Corporation 

(Mr. T. M. Bellan) 

Fixed and floating decimal arith- 
metic: square root, sin, cos, In, 
e x , arctan 

Complex arithmetic in floating 
decimal: A+B-K, AxB-K, A/B-K, 
K i AxB-K, 



K - C 

C - K 



Transfers 



(K is the com- 
plex accumulator) 



Redstone Arsenal (Mr. P. W. Sage) 

Interpretive subroutines for sin, 
cos, arctan, log 

10-digit fixed decimal 

10-digit floating decimal 

8-digit floating decimal (also, sub- 
routine using 3 index registers) 

United States Steel Corporation 
(Mr. C. W. Zahler) 
Fixed point: square root, cube root, 

Va 2 + b 2 , V"a 2 -b 2 , e x , log, sin, cos, 
tan, sinh, cosh, arcsin, arctan 
Fixed point simplex method linear 
program, maximum size 
(m+1) (m+2) s 1650 

University of Wisconsin 

(Dr. A. W. Wymore) 

Dual (single-address) 8-digit floating 
decimal system including all usual 
transcendental functions, Steiffel- 
Hestenes linear systems solution 

Dual (single-address) 18-digit floating 
decimal system, basic operations 
only. (Transcendental functions 
available later this year.) 

All possible simple correlations 
among 10 5-digit signed variables, 
mean and standard deviation of each 
variable. (Factor analysis and 
standard analysis of variance routine 
available later this year. ) 

Westinghouse Electric Corporation 

(Mr. M. Middleton) 

Interpretive routine(code number in 
parenthesis): transfer (00), add (01), 
sub (02), multiply (03), divide (04), 
e x (05), square root (06), In (07), 
sin (08), cos (09), arctan (10), branch 
on zero (11), branch on minus (12) 

Fixed and floating point trace 



Fourier analysis, 
method 



1000 points, Filon's 
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LIST OF TYPICAL 650 APPLICATIONS 



Mathematics 

Algebraic equations - real and com- 
plex coefficients 

Applied probability functions 

Complex polynomials 

Eigenvalues 

Extrapolated Liebmann iteration on 
partial differential equation 

Fourier analyses 

Generation of tables of specialized 
functions 

Linear programming 

Matrix calculations 

Minimization of functions of two 
variables 

Ordinary differential equations 

Random number generation 

Random walk 

Simultaneous linear and nonlinear 
equations 

Simultaneous linear and nonlinear 
differential equations 

Statistics 

Analysis of variance 
Auto-correlation and power spectrum 
Climatological statistical analysis 
Least squares curve fitting 
Multiple correlation 
Multiple bivariate frequency dis- 
tribution tables of weather elements 
Quality control 
Standard deviations and means 

Physics 

Atomic power studies 

Gamma ray attenuation 

Neutron absorption breakdown 

Nuclear calculations - Kron's method 

Upper atmosphere research studies • 

X-ray crystal structure analysis 

Aircraft Industry 
Aeroelastic studies 
Aircraft body and duct design 
Armament systems evaluation 
Bombing systems evaluation 
Compressible flow studies 
Data reduction - telemetered, 

theodolite, wind tunnel 
Drag chute calculations 
Engine cooling 

Engine performance calculations 
Fire control pursuit course solutions 
Flutter and vibration analyses 
Flight trajectory calculations 
Fuel cell pressure analysis 



Guidance problems 

Guided missile optmization studies 

Heating studies 

High-speed instrumentation conversion 

Load calculations 

Lofting 

Mach senser frequency response 

Nozzle design calculations 

Optical system design 

Power plant calculations 

Radar equipment design 

Radar detection probabilities 

Radar echo studies 

Radar parameters optimization 

Radio interference 

Radome studies 

Servomechanism calculations 

Shears and moments calculations 

Sound pressure analysis 

Standard airplane performance 

calculations 
Stress calculations 
Wind tunnel balances computing 

Chemical Engineering 

Absorption analysis' 

Crude oil evaluation 

Flash vaporization 

Gas vapor cycle - performance 
coefficient 

Liquid - vapor equilibrium cal- 
culations 

Mass spectrometer analysis 

Multi-source planar diffusion 
problems 

Pilot diffusion cascade data analysis 

Pipeline design, stress analysis 

Platformer gas plant calculations 

Refinery production analysis 

Tankage studies 

Electrical Engineering 
Circuit design 
Circuit breaker design 
Motor and generator engineering 
studies: 

Core losses 

Critical shaft speeds 

Stability studies 

Transient studies 
Power system design: 

Economic operation 

Loading and losses 

Stability studies 

Substation studies 

Transient studies 
Transformer design 
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